Кое-что о Лиспе на Атари-8

[andrews]

Реализацию в студию пожалуйста!

[Advertiser]

[ezswift]

А вот и Новоггодние чудеса:
Вот этот файлик назывался PROLOG.LGO

TO . :TRUEORFALSE
IF LISTP :TRUEORFALSE [PRINT :TRUEORFALSE STOP]
IF :TRUEORFALSE = TRUE [PRINT "YES.] [PRINT "NO.]
END

TO DEFINIOWANA :OBIEKT :CECHA
IF ( FIRST BF BF THING :CECHA ) = "AND [OP AND IS :OBIEKT FIRST BF THING :CECHA IS :OBIEKT FIRST BF BF BF THING :CECHA]
IF ( FIRST BF BF THING :CECHA ) = "OR [OP OR IS :OBIEKT FIRST BF THING :CECHA IS :OBIEKT FIRST BF BF BF THING :CECHA]
IF ( FIRST BF THING :CECHA ) = "NOT [OP NOT IS :OBIEKT FIRST BF BF THING :CECHA]
END

TO DEF :CECHA :LISTA
MAKE :CECHA FPUT "@ :LISTA
END

TO ADD :OBIEKT :CECHA
IF NOT NAMEP :CECHA [MAKE :CECHA []]
IF NOT NAMEP "OBIEKTY [MAKE "OBIEKTY []]
IF NOT MEMBERP :OBIEKT :OBIEKTY [MAKE "OBIEKTY LPUT :OBIEKT :OBIEKTY]
IF MEMBERP :OBIEKT THING :CECHA [STOP]
IF NOT ( FIRST THING :CECHA ) = "@ [MAKE :CECHA LPUT :OBIEKT THING :CECHA]
END

TO DO :N :LISTA
IF :N > COUNT :LISTA [OP :LISTA]
IF :N = COUNT :LISTA [OP :LISTA]
OP DO :N BL :LISTA
END

TO OD :N :LISTA
IF :N > COUNT :LISTA [OP []]
IF :N = 1 [OP :LISTA]
OP OD :N - 1 BF :LISTA
END

TO ELEMENT :N :LISTA
IF :N > COUNT :LISTA [OP []]
IF :N = 1 [OP FIRST :LISTA]
OP ELEMENT :N - 1 BF :LISTA
END

TO WICH :CECHA
IF OR NOT NAMEP "OBIEKTY NOT NAMEP :CECHA [OP []]
OP W :CECHA :OBIEKTY
END

TO IS :OBIEKT :CECHA
IF NOT NAMEP :CECHA [OP FALSE]
IF ( FIRST THING :CECHA ) = "@ [OP DEFINIOWANA :OBIEKT :CECHA]
IF MEMBERP :OBIEKT THING :CECHA [OP TRUE] [OP FALSE]
END

TO W :CECHA :OB
IF EMPTYP :OB [OP []]
IF IS FIRST :OB :CECHA [OP FPUT FIRST :OB W :CECHA BF :OB] [OP W :CECHA BF :OB]
END


MAKE "BRZYTKI [@ NOT LADNY]
MAKE "LADNY [EWA MAGDA ANKA]
MAKE "MADRY [SOBIECH SZYMON KAMIL EWA KUCIAP TIBOR]
MAKE "BRZYDKI [@ NOT LADNY]
MAKE "GLUPI [@ NOT MADRY KOBZA KOBZA]
MAKE "GLUPIBRZYDKI [@ GLUPI AND BRZYDKI]
MAKE "NIEPRZYDATNY [@ GLUPIBRZYDKI OR SZALONY]
MAKE "PRZYDATNY [@ NOT NIEPRZYDATNY]
MAKE "OBIEKTY [SOBIECH SZYMON KAMIL EWA MAGDA ANKA KUCIAP KOBZA TIBOR]

Но в ЛОГО я - не кумекаю ...

zen