kayprish/cirilisp
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Поправљен баг у >= и <= функцијама

Browse source
This commit is contained in:
kappa 2019-12-23 16:13:42 +01:00
parent cbb8417c9d
commit 51f4602800
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
инит.ћ
View file

@ -128,7 +128,7 @@
(или (примени > аргументи) (примени = аргументи))) (или (примени > аргументи) (примени = аргументи)))
(#и (и (#и (и
(>= (сар аргументи) (садр аргументи)) (>= (сар аргументи) (садр аргументи))
(примени >= (сддр аргументи)))))) (примени >= (сдр аргументи))))))
(опиши (<= . аргументи) (опиши (<= . аргументи)
@ -138,7 +138,7 @@
(или (примени < аргументи) (примени = аргументи))) (или (примени < аргументи) (примени = аргументи)))
(#и (и (#и (и
(<= (сар аргументи) (садр аргументи)) (<= (сар аргументи) (садр аргументи))
(примени <= (сддр аргументи)))))) (примени <= (сдр аргументи))))))
(опиши (цео-број? џ) (опиши (цео-број? џ)
(= (именилац (нетачно->тачно џ)) 1)) (= (именилац (нетачно->тачно џ)) 1))