Довршен матурски рад, поправљена грешка у "или" макроу
This commit is contained in:
parent
3c05965a77
commit
8ccfdf35fb
4 changed files with 1039 additions and 38 deletions
|
@ -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",
|
||||||
|
}
|
||||||
|
|
1050
doc/rad.tex
1050
doc/rad.tex
File diff suppressed because it is too large
Load diff
3
util.h
3
util.h
|
@ -149,9 +149,6 @@ struct entry
|
||||||
struct frame
|
struct frame
|
||||||
{
|
{
|
||||||
entry *table;
|
entry *table;
|
||||||
/* Макрои у табели се налазе као конс структуре где је car форма маркоа
|
|
||||||
* представљена у листи (м а1 а2 . остало) а cdr је дефиниција макроа
|
|
||||||
* представљена као симболички израз */
|
|
||||||
env enclosing;
|
env enclosing;
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|
16
инит.ћ
16
инит.ћ
|
@ -23,8 +23,6 @@
|
||||||
(опиши (није предикат)
|
(опиши (није предикат)
|
||||||
(ако предикат #л #и))
|
(ако предикат #л #и))
|
||||||
|
|
||||||
(опиши истинито #и) (опиши лажно #л)
|
|
||||||
|
|
||||||
(опиши (листа . арг) арг)
|
(опиши (листа . арг) арг)
|
||||||
|
|
||||||
(опиши (дужина листа)
|
(опиши (дужина листа)
|
||||||
|
@ -48,9 +46,11 @@
|
||||||
(ако (нил? предикати) #л
|
(ако (нил? предикати) #л
|
||||||
(ако (нил? (сдр предикати))
|
(ако (нил? (сдр предикати))
|
||||||
(сар предикати)
|
(сар предикати)
|
||||||
(листа 'ако (листа 'није (сар предикати))
|
(листа 'почни
|
||||||
(примени или (сдр предикати))
|
(листа 'опиши '|ИЛИ НЕГАТИВНА ГРАНА| (сар предикати))
|
||||||
(сар предикати)))))
|
(листа 'ако (листа 'није '|ИЛИ НЕГАТИВНА ГРАНА|)
|
||||||
|
(примени или (сдр предикати))
|
||||||
|
'|ИЛИ НЕГАТИВНА ГРАНА|)))))
|
||||||
|
|
||||||
(опиши-складњу (услов . клаузе)
|
(опиши-складњу (услов . клаузе)
|
||||||
(ако (= (дужина клаузе) 0)
|
(ако (= (дужина клаузе) 0)
|
||||||
|
@ -121,5 +121,11 @@
|
||||||
(ако (< остатак (сар аргументи))
|
(ако (< остатак (сар аргументи))
|
||||||
остатак (сар аргументи)))))
|
остатак (сар аргументи)))))
|
||||||
|
|
||||||
|
(опиши (>= . аргументи)
|
||||||
|
(или (примени > аргументи) (примени = аргументи)))
|
||||||
|
|
||||||
|
(опиши (<= . аргументи)
|
||||||
|
(или (примени < аргументи) (примени = аргументи)))
|
||||||
|
|
||||||
(опиши (цео-број? џ)
|
(опиши (цео-број? џ)
|
||||||
(= (именилац (нетачно->тачно џ)) 1))
|
(= (именилац (нетачно->тачно џ)) 1))
|
||||||
|
|
Loading…
Add table
Reference in a new issue