cirilisp/инит.ћ

33 lines
1.1 KiB
Plaintext
Raw Normal View History

(опиши (саар џ) (сар (сар џ)))
(опиши (садр џ) (сар (сдр џ)))
(опиши (сдар џ) (сдр (сар џ)))
(опиши (сддр џ) (сдр (сдр џ)))
(опиши (није предикат)
(ако предикат #л #и))
(опиши нил ())
(опиши истинито #и) (опиши лажно #л)
(опиши (листа . арг) арг)
(опиши-складњу (и . предикати)
(ако (нил? предикати) #и
(ако (нил? (сдр предикати))
(сар предикати)
(листа 'ако (сар предикати)
(примени и (сдр предикати))
#л))))
(опиши-складњу (или . предикати)
(ако (нил? предикати) #л
(ако (нил? (сдр предикати))
(сар предикати)
(листа 'ако (није (сар предикати))
(примени или (сдр предикати))
(сар предикати)))))
#|(опиши-складњу (услов . клаузе)
(|#