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