Г-н Фаршеклоакин (spamsink) wrote,
Г-н Фаршеклоакин
spamsink

Опознайте язык палимпсеста

Язык, конечно, не человеческий, поэтому в основном под катом.
В качестве примера:
    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 крестики-нолики.
Tags: retrocomputing
Subscribe

  • Парадоксальное наоборот

    Все (интересующиеся подобными вещами) помнят хрестоматийный ответ на вопрос, сколько людей должно быть в группе, чтобы с вероятностью больше 50%…

  • Занимательная математика

    Посмотрим на числа от 1 до 10. Среди них 4 простых: 2, 3, 5, 7. И во втором десятке, от 11 до 20, тоже 4 простых: 11, 13, 17, 19. Таких четверок…

  • Простенькая задачка

    Бывший сослуживец-американец, ныне живущий в Неваде, на прошлой неделе посещал наши края, и на нашей с ним встрече-прогулке задал задачку: Даны 10…

  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 2 comments