From f3d20686dbf121230986ccf46e98115c9a4e312f Mon Sep 17 00:00:00 2001
From: kappa <kappa10@tutanota.com>
Date: Tue, 26 Feb 2019 13:50:00 +0100
Subject: [PATCH] =?UTF-8?q?=D0=9D=D0=B0=D1=81=D1=82=D0=B0=D0=B2=D0=B0?=
 =?UTF-8?q?=D0=BA=20=D0=BF=D0=B8=D1=81=D0=B0=D1=9A=D0=B0=20=D1=80=D0=B0?=
 =?UTF-8?q?=D0=B4=D0=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 doc/list.png | Bin 0 -> 3723 bytes
 doc/lit.bib  |   4 ++--
 doc/rad.tex  |  24 +++++++++++++++++-------
 инит.ћ       |  32 ++++++++++++++++++++++++++++++++
 4 files changed, 51 insertions(+), 9 deletions(-)
 create mode 100644 doc/list.png

diff --git a/doc/list.png b/doc/list.png
new file mode 100644
index 0000000000000000000000000000000000000000..e148d9e8ade4da34a82573d1988da36ef768fda1
GIT binary patch
literal 3723
zcmcInc{r5o8~#v8sHyBaqalQnH6iOD`*OyXESZ^*5Hof{i^viqS+bNNOXOG+W2qEI
znIv1bWM?G%Hu$}Bo%7%6oa;J&{ARA_oB7^(zvp|u=e_Uez9-tuM2~}wpACW_4*iQr
z3kYHi2j9u8%;2byxCo9Av$LTd656A`pVa3kfsq3@F52QC=-^R$FhJ=UykL+8uWziw
zGRDY%aKF6%S}Q%laW|9=UfavV1M7(grx2v=gS~>sVubwN@UB97`o?CMGguaI>jizJ
zCMw|T{7|rK@+zF=C#B7uAba%4$4fc=q{{ti@gj8zTshH)-6l_?woDBS@5sXr%AZaW
zCxu`7s>QA&T=^_d*5GI{%EGWXP(XL(o<}+{<Yw3k&SMfg5ucU09Q4|0AW)IAxuRye
zFcsLKB9<(oe*}WYW9MQaNP}VDe-1N<0s8mYdrlw_rn{e8SGsm0YW?Q<+f$@Vaodw0
z9}6cN=(xGLWiI4f6kg1;=*-cHnI5Y1rw+c7bDz5Lqs$>}XVn~qIu^rynmlXU`htoe
z%ChaHV4j+)ZHl~_cw|Q~Ro{^>EG{<U{7p4A_P9!Qhayq$fl1KnY;r8WLQ%&$C2ssf
znp~U80x9Vj7Z-M3u;W5cl9;JzUS6Jl${BltP7F78LJDK;muSv+_Y$S$dWhN1_PS|L
ziJgDv!1JOaLbb<$Xz=<E<E5n~0+~z>Q$0oT=q<;#7iYfR+zERd$>Hm#)h~arKiM9G
z(jE1(4LlIAFkJ6F61r}`vZmnPgKWIHljB0k>MV6^w5ju(SFbL7@gm-TB=lU+%5-8C
zPRY^R+gniShLEJoiMsNbSh6^+#O;jQG?%1RbB*^H0^$6nz`P7U^O^U&4<@sU4+ire
z^0h8@Y*fo<a^^0VtZOZZC4`nQu{%++E)a{0skdHQqEOACxaht=t|S`dIdA+NEpzL7
zRsdf8qWT2z5k(@AHfEofmiut>l!tDw)r`ff%!WwYUHxkXUpSn4`fI$=gzW6>hmRhK
zT3TARy}r$o<dPK#5{RU!_<PEF4%R3SJb<gKrJeH{R`0>0P$&`mTD-nVhEk$0u3*O|
zY<vDCrt6t8k9}?iM@51?s1RSWc|nzlf*ri?K9?ln$55Tv$8-flfQWP{#|Bl9`IMBD
zQMKpLC6|E`yO*MO@80FPTvO-t`qp@~SXOK8`HbLVSRx%n^m*K8E(f&fe25GEs|ar#
zE%pu}An5!Xl?VtD5C3~$(u;#6Yj9rA-*%63-2r=!J;tZQ@PTz=Vj^yK*UH+ug`6xY
zjBp-rP3$BEF6(+XE-x=%2&PX&>0%%1l21B8(Eh{!7~c$XEee(4F+9?{z3S_Zo}~+l
zY(kJmdOdBa-Q3pJ?Jzh?kOT#S;U+)Gu!2mjCrcZ5g9KIlJ_sGtfP@ByLf402Fz>CE
znShzR6m}%T9rse1(?@i5pUPbI8YTrQWS82MAsTkK+}~P4qhA*WX@|J^?yg`LB3OQl
z0z0IKZ0@gc8N18laMo%6&k?(qp7!hlic)NBY&lP!2t{%TaL@IW;KDY02_kMkh3)%w
zbg`(l-I=OhhnQ!^k9CpFF4>{n@Gx50iQdm&SkKHSTRTLbG<@`Bb9ilj0KL67Uj~qz
zs_2ov-QGCd)~)urq`oT&?5sIoa(!f*gQlitEI<U<8D1Dnx?#gvb*&HGnX7;FHm3_D
z9h~dGn^a#7@?pLtI-=_u<MCbok96qFORkSflXKApiv#5!X$VcBd8N8%Fp%zm#u4Np
zhiOgF#f6EPWbhspGr67+M&Up4C*Qi}4LbG><GYMyu;hoSYN0_$<cCxl;jEimGwBwo
z?eq*@jXTwv)or=khLdCpC56sXw{KdiZl7~&HYXnoBfd{%hsA@U2^280rV&Y`!NUpW
zHQ|!B2m6XFpQkFgTYc<Zo}xSu){7sf8QC*7+{www>1znx#=dkjT7OwnqhwWbsawc}
z@pIMLL0Acu{34d@iU{T~+wI_!yJ|!N_b3DHBc12o&4v1PpP=_0ki(lOm@q#^U_AxD
zFo@v+r0B0h_P_d3t1Qh~?=wN}t8!0aY`x3DCo3XqlzO9cK+GsLLFV8?fw7$`TukNh
ziS{$H62x-r-f#w{@11(^lFcE|(K=>q>-L540m8+AW>?YS=*Pvw(*o`!yVQ2`$L^zt
z55GuVIwK)L?%Q^s60IwjB+8Pz$-{%MaKy?=`Hrj$0(RBcqaUbkiTh7wVmh^Mqa>26
zb;wnFTO}v<;$~-OZC?3ck;quV^RnrH@#0rK;>gJpE42Q$7gTaVEO|P)e%vth;5g`6
z&NH9$V2iymItwF>djxgs?2%xFLmB+{4V!KxpMtlFU#_D9-b-Gpy2b@F&!<iB)0x0`
zT*c35ZmSU`VYzS!41AMFlf@cTdX1>%yF7syq4N`w0-kh~NC0NX*%Cw);H!(&3QEsr
zTFlPn(3=aJjrk35z%b}n5$1kvUvJh+do4dr-O+0XCv8`#H9cO>om=kHcML%k54Wvd
zmXpQsV2<(2xdTN5bo|fpFRkI<+Q$D!bbl?%|M*x<ACe97`0*+U_6g=@kihGX86TDG
zEl-y6gR*RFPLYO$@p8Q<RgI3p!Sore8@J1vE9St^>QGt)^;WDF`WyQ<E@}uh<Ie;*
zS266=9q_{~##C*UQz~Ng${uSH{Hou7{zRP+@l)TX@L?!iaEx6D3TI^fTWCCUyS9(V
z%G?|VB(rGQ8)#ViKz$HrS^<fq3M83Z#s5d_h2XX3r`q?vr#Rk>1^{&h*atd!a%**t
z2i+1Mmy?5F8Y|i!y$5#&GHq^U#T~pxjRr(+1}H*EOG^U*hTUd46u&suqUYd{bw!gu
z@OV=U$E2(m%JaJX`@tSXKWbk9kTIg=b1P;&U2LWHJ<c-VEv9=*vm+uH3m`3R?xv_H
z7I?^614Bciev)V;eU|ZKMLOqODU@^a7n$54Y43f?uAiQy%Aj@Wx*ZQ!_Y}vFXfzt{
zg&;g>wa2c^cdkcVTKYjzQPIZO1NHA4i(`ws+Y5T@KZe|^_h`!$^yr(r%q^B(KowKv
z-7Jdj>lA_E;mtS6ybnA{UxkaQDwx(;IpZjqWRj)ISK6>u6rowm`96bz=B4-Iy)N2!
z_Df;F#^}AVcIn30s3^72t>*aSD(sQ5XI(lnQk8wLA(4YYb0y{u4xZvqAc^o#hrzSM
z-o1MVgLT&W&M5^h<vvY-flIhEm3{9=MFD@&0?Np~|8vtxr&i6XJ;n`ce+9GFd)J;~
z+mBNo1Jw$L&7g=#pOxv(bP8y~eoQCOAz%Rt*@t+~HfabMlQ@OOpJ3Y`b%&^7S`Rag
zrf==6kBt2seY^OY1>Ovj2_tgs>-=PJlSXeN<ja_Uj<C1$Ym_&g8woiIJWENS_cYiJ
z9e@w^NcURPk`n)gVRH+M?^OBRM8l>8?RdfSN9el?kP#IXFcx?2p}H)&DS`>TximqB
z=WatE_?q_oDz9CaSLEX2TKuGa=-uwlHV}lu{H*%~!jao2gx3nEf@zB_=>Br7H%P#L
zEH^?fJb{Va-cAhL+f|q-1xMc=hBs9SBKp8ZcXxMt1Mgr{b<J{Re&8Ge(NpROUmwJo
z(zfPGnfK2qK{)20jmJy)1>)WT1IY70b?G9|eklYZXpPE;#bOgvQe2cU8R~m9xvY?-
zHk*p8#z>?p$RHE88*-arzZt`wt*>QhJ$6B*KPIINraCf#;geGKqq-_#ikVnAkwAcv
zwAHmp^_`WZr{Q#fh64Zg{?k)!Vo{L<VmHXH1VHG$$IGFsN|;JHmkwn6qtn7~>LN61
zZJ1bXT~}wjWdKssmr}B`;Xn_}cU_MG<+ombmB$8}@ai7{i{E+GLIOS-*5l{DD$t3T
zsp79FC_6mUm5*K;Z&PqwpXq8b6XGBpWyK_($4xeWDg52N;YTM?@A}uuQ_A>hC#B0c
zVC-b@)1PYAhl7d0qjUl}bp<ufPzzNCwMBz9l>yVY0Vv>p^Xi*B2bfvhoH)L{W5z}I
z=GXEPb7dwK5#L+jVfet**!C&FD`&8$VA8iEXCc14z~xDq(5)4lT72OZjr5v*>`j*5
z-<l%&fT0ape8*D;aH15n;)=4e(gpu3=oss)aG})f?QWy#&ad!yF{az{J_mRqp%!p4
mL>Hg`8ozR%zZ$z7y~nVpBv!<>*nJ-YFMS;o<O?mQTmJ)jzIQ(W

literal 0
HcmV?d00001

diff --git a/doc/lit.bib b/doc/lit.bib
index 50bfbd3..0a669ba 100644
--- a/doc/lit.bib
+++ b/doc/lit.bib
@@ -6,7 +6,7 @@
 }
 
 @article{mccarthy96,
-	author = {Mccarthy, John},
+	author = {McCarthy, John},
 	year = {1996},
 	month = {08},
 	pages = {},
@@ -60,7 +60,7 @@
 	publisher = "MIT Press",
 }
 
-@article{McCarthy:1960:RFS:367177.367199,
+@article{recursive,
 	author = {McCarthy, John},
 	title = {Recursive Functions of Symbolic Expressions and Their Computation by Machine, Part I},
 	journal = {Commun. ACM},
diff --git a/doc/rad.tex b/doc/rad.tex
index 16bb2a3..db1ee9f 100644
--- a/doc/rad.tex
+++ b/doc/rad.tex
@@ -1,11 +1,13 @@
 \documentclass[a4paper]{article} 
 
+% biber
 \usepackage[T2A]{fontenc}
 \usepackage[utf8]{inputenc}
-\usepackage[serbian]{babel}
+\usepackage[serbianc]{babel}
 \usepackage{multicol}
 \usepackage{textcase}
 \usepackage{tocloft}
+\usepackage{graphicx}
 \usepackage[backend=biber]{biblatex}
 \addbibresource{lit.bib}
 
@@ -65,11 +67,19 @@
 \newpage
 
 \section{Кратак опис Лисп програмског језика}
-Лисп је један од најстаријих програмских језика који је и данас у општој примени, једино надмашен од стране Фортрана. Познат је по својој једноставној и једноличној синтакси, аутоматским системима за управљање меморијом, и моћним макроима који могу проширити његову већ изражајну синтаксу. Управо због своје екстензибилности, и изражајне моћи основа његовог дизајна, Лисп је један од ретких програмских језика који поседује сопствене дијалекте. Постоје стотине Лисп дијалеката, сваки са другачијом сврхом и философијом дизајна. Од више функционалних и декларативних, као Ским или Кложур, до практичнијих и опште-наменских, као Комон Лисп и, па и обласно-специфичних као Емакс-Лисп.
-\subsection{Историја}
-Лисп је првобитно осмишљен од стране Џона Мекартија, при крају педесетих, за сврхе изтраживања у пољу вештачке интелигенције \textcite{mccarthy81}, 
-\subsection{Листе}
-Лисп је акроним за List Processing (пређивање листа) што указује на најосновнију, и најбитнију сложену структуру података која је доступна у овом језику, наиме листа. Листа се гради помоћу конс ћелија, структура које поседују два показивача који могу показати на било какав податак. Ови показивачи се респективно зову CAR и CDR (Contents of the address part of the register number и Contents of the decrement part of the register number). Листа се уз њих дефинише као скуп конс ћелија где CAR сваке показује на одређени податак, члан листе, а CDR показује на следећу конс ћелију која чини исто као и претходна, све до задње, која показује на посебни тип објекта најчешће зван нил објекат.
-%ovde ubaciti fotku
+Лисп је један од најстаријих програмских језика који је и данас у општој примени. Познат је по својој једноставној и једноличној синтакси, аутоматским системима за управљање меморијом, и моћним макроима који могу проширити његову већ изражајну синтаксу. Управо због своје екстензибилности, и изражајне моћи основа његовог дизајна, Лисп је један од ретких програмских језика који поседује сопствене дијалекте. Постоје стотине Лисп дијалеката, сваки са другачијом сврхом и философијом дизајна. Од више функционалних и декларативних, као Ским или Кложур, до практичнијих и опште-наменских, као Комон Лисп и, па и обласно-специфичних као Емакс-Лисп.
+\subsection{Листе и функције}
+Лисп је акроним за List Processing (пређивање листа) што указује на најосновнију, и најбитнију сложену структуру података која је доступна у овом језику, наиме листа. Листа се гради помоћу конс ћелија, структура које поседују два показивача (или два сама објекта у зависности од имплементације) који могу показати на било какав податак. Ови показивачи се респективно зову CAR и CDR (Contents of the address part of the register number и Contents of the decrement part of the register number). Листа се уз њих дефинише као скуп конс ћелија где CAR сваке показује на одређени податак, члан листе, а CDR показује на следећу конс ћелију која чини исто као и претходна, све до задње, која показује на посебни тип објекта најчешће зван нил објекат.\parencite{recursive}
+\begin{figure}[h!]
+	\includegraphics[width=\linewidth]{list.png}
+	\caption{Приказ листе}
+	\label{list1}
+\end{figure}
+
+Слика \label{list1} приказује листу која би се текстуално могла представити као симболички израз \texttt{(1 . (2 . (3 . ())))} или у скраћеној нотацији симболичких израза, \texttt{(1 2 3)}.
+
+Лиспова синтакса је хомоиконична, другим речима он није само способан да прерађује листе, већ је и сам његов код сачињен од листа. Ово чини саму синтаксу језика довољно једноставном да се опише једним примером позива функцијем, који у Лиспу увек бивају следећег облика: \texttt{(функција арг1 арг2 арг3 ...)}, овако изгледа готово свака операција или функција извршена у самом језику, то наравно значи да су неки, нама познати изрази као \texttt{1 / (3 + 4 * 5)}, претворени у, на први изглед, необичне \texttt{(/ 1 (+ 3 (* 4 5)))}. Међутим, управо та чудна униформност читаве синтаксе која није присутна у већини других програмских језика је управо оно што Лиспу омогућава толику изражајну моћ.
+\newpage
+\renewcommand\refname{Литература}
 \printbibliography
 \end{document}
diff --git a/инит.ћ b/инит.ћ
index d9a11c8..2a1c450 100644
--- a/инит.ћ
+++ b/инит.ћ
@@ -89,5 +89,37 @@
 			(опиши ламбда-израз (надовежи (листа 'ламбда имена) тело))
 			(конс ламбда-израз вредности))))
 
+(опиши (макс . аргументи)
+	(опиши (листа-бројева? листа)
+		(примени и (мапирај број? листа)))
+	(услов
+		((= 0 (дужина аргументи))
+			(баци "Функција \"макс\" захтева барем један\
+ аргумент"))
+		((није (број? (сар аргументи))) (баци "Аргументи дати функцији\
+ \"макс\" нису бројеви"))
+		((и (= 1 (дужина аргументи)) (број? (сар аргументи)))
+			(сар аргументи))
+		(#и
+			(опиши остатак (примени макс (сдр аргументи)))
+			(ако (> остатак (сар аргументи))
+				остатак (сар аргументи)))))
+
+(опиши (мин . аргументи)
+	(опиши (листа-бројева? листа)
+		(примени и (мапирај број? листа)))
+	(услов
+		((= 0 (дужина аргументи))
+			(баци "Функција \"макс\" захтева барем један\
+ аргумент"))
+		((није (број? (сар аргументи))) (баци "Аргументи дати функцији\
+ \"макс\" нису бројеви"))
+		((и (= 1 (дужина аргументи)) (број? (сар аргументи)))
+			(сар аргументи))
+		(#и
+			(опиши остатак (примени мин (сдр аргументи)))
+			(ако (< остатак (сар аргументи))
+				остатак (сар аргументи)))))
+
 (опиши (цео-број? џ)
 	(= (именилац (нетачно->тачно џ)) 1))