Довршен матурски рад, поправљена грешка у "или" макроу

This commit is contained in:
kappa 2019-03-03 02:52:40 +01:00
parent 3c05965a77
commit 8ccfdf35fb
4 changed files with 1039 additions and 38 deletions

View file

@ -51,6 +51,7 @@
title = "Structure and Interpretation of Computer Programs", title = "Structure and Interpretation of Computer Programs",
year = "1985", year = "1985",
publisher = "MIT Press", publisher = "MIT Press",
howpublished = "\url{https://mitpress.mit.edu/sites/default/files/sicp/index.html}",
} }
@article{harvey99, @article{harvey99,
@ -78,3 +79,10 @@
publisher = {ACM}, publisher = {ACM},
address = {New York, NY, USA}, address = {New York, NY, USA},
} }
@book{chassel09,
author = "Robert J. Chassell",
title = "Introduction to Programming in Emacs Lisp",
year = "2009",
publisher = "GNU Press",
}

File diff suppressed because it is too large Load diff

3
util.h
View file

@ -149,9 +149,6 @@ struct entry
struct frame struct frame
{ {
entry *table; entry *table;
/* Макрои у табели се налазе као конс структуре где је car форма маркоа
* представљена у листи (м а1 а2 . остало) а cdr је дефиниција макроа
* представљена као симболички израз */
env enclosing; env enclosing;
}; };

View file

@ -23,8 +23,6 @@
(опиши (није предикат) (опиши (није предикат)
(ако предикат #л #и)) (ако предикат #л #и))
(опиши истинито #и) (опиши лажно #л)
(опиши (листа . арг) арг) (опиши (листа . арг) арг)
(опиши (дужина листа) (опиши (дужина листа)
@ -48,9 +46,11 @@
(ако (нил? предикати) #л (ако (нил? предикати) #л
(ако (нил? (сдр предикати)) (ако (нил? (сдр предикати))
(сар предикати) (сар предикати)
(листа 'ако (листа 'није (сар предикати)) (листа 'почни
(примени или (сдр предикати)) (листа 'опиши '|ИЛИ НЕГАТИВНА ГРАНА| (сар предикати))
(сар предикати))))) (листа 'ако (листа 'није '|ИЛИ НЕГАТИВНА ГРАНА|)
(примени или (сдр предикати))
'|ИЛИ НЕГАТИВНА ГРАНА|)))))
(опиши-складњу (услов . клаузе) (опиши-складњу (услов . клаузе)
(ако (= (дужина клаузе) 0) (ако (= (дужина клаузе) 0)
@ -121,5 +121,11 @@
(ако (< остатак (сар аргументи)) (ако (< остатак (сар аргументи))
остатак (сар аргументи))))) остатак (сар аргументи)))))
(опиши (>= . аргументи)
(или (примени > аргументи) (примени = аргументи)))
(опиши (<= . аргументи)
(или (примени < аргументи) (примени = аргументи)))
(опиши (цео-број? џ) (опиши (цео-број? џ)
(= (именилац (нетачно->тачно џ)) 1)) (= (именилац (нетачно->тачно џ)) 1))