?

Log in

No account? Create an account

Опознайте язык палимпсеста - Общество дровосеков Бердичева по изучению Мишны

Dec. 15th, 2016

08:09 pm - Опознайте язык палимпсеста

Previous Entry Share Next Entry

Язык, конечно, не человеческий, поэтому в основном под катом.
В качестве примера:

    FUNCTION DEBFN X;
      IF DEBUG THEN BUGIO(X, ">",HD); DEBSP+1->DEBSP; .X;
        DEBSP-1->DEBSP; BUGIO(X, "<",LAMBDA; HD(.TL) END)
      EXIT;.X
    END;

Я понятия не имею, на что это, вообще, похоже.
    VARS DEBPR DEBSP DEBUG;
    FUNCTI BUGIO F;
    VARS X;
      1.NL; DEBSP.SP;.PR; .FNPROPS-> X;
      IF X.NULL THEN L0: X.PR;  ";".PR EXIT;
      X.HD -> X;
      IF X.ATOM THEN GOTO L0 CLOSE;
      X.HD.PR;  ";".PR; F(X.TL)->X; REV(MAPLIST(X,ERASE));
      APPLIST(X,
        LAMBDA U;
          .DEST->X; 1.SP; U.PR;
          IF NOT(U= "*") THEN PR("="); ->U; U.DEBPR; U CLOSE;
           ",".PR; X
        END); ->X
    END;
    FUNCTION DEBFN X;
      IF DEBUG THEN BUGIO(X, ">",HD); DEBSP+1->DEBSP; .X;
        DEBSP-1->DEBSP; BUGIO(X, "<",LAMBDA; HD(.TL) END)
      EXIT;.X
    END;
    MACRO BUG;
    VARS X;
      MACRESULTS([%
    (L0:
      .ITEMREAD->X;
      IF NOT(X= ";") THEN "DEBFN","(%",X,"%)","-> ",X,";";GOTO L0 CLOSE)%]) 
    END;
    MACRO UNBUG;
    VARS X;
      MACRESULTS([%
    (L0:
      .ITEMREAD->X;
      IF NOT(X= ";") THEN 1,",",X,".","FROZVAL","-> ",X,";";GOTO L0 CLOSE)%])
    END;
    PR->DEBPR; 0->DEBSP; FALSE->DEBUG;
    MACRO SPEC;
    VARS FN X;
      ITEMREAD()->FN;
      [% [%
        [% FN,
           [% (L0: ITEMREAD()->X;
             IF NOT(X= " ; " ) AND NOT(X= "=>") THEN X;GOTO L0 CLOSE) %],
           IF X= ";" THEN NIL ELSE
          [% (L1: ITEMREAD()->X; IF NOT(X= ";") THEN X;GOTO L1 CLOSE) %]
          CLOSE %] %],
         "->",FN,".","FNPROPS",";" %].MACRES
    END;


А еще у меня есть на этом языке кусок программы, которая играет в 4х4х4 крестики-нолики.

Comments:

[User Picture]
From:ygam
Date:December 16th, 2016 05:29 am (UTC)
(Link)
Мне потребовался гугель, но я опознал: POP-2.
(Reply) (Thread)
[User Picture]
From:spamsink
Date:December 16th, 2016 06:23 am (UTC)
(Link)
И действительно!
А я впервые слышу. Спасибо!
(Reply) (Parent) (Thread)
[User Picture]
From:spamsink
Date:December 16th, 2016 11:15 pm (UTC)
(Link)
ПОПЛАН 2.1  ВРЕМЯ 15.13.18    ДОБРЫЙ ДЕНЬ


Дальше пока не работает.
(Reply) (Parent) (Thread)