l
knet> ;Value: 0.1
Size: a a a
2020 March 18
A
(+ 0.2)
l
knet> ;Value: 0.2
AK
TCO-то есть? 😅
AK
(define fact (lambda (n) (define fact-iter (lambda (n i) (if (= n 1) i (fact-it
er (- n 1) (* i n))))) (fact-iter n 1))) (fact 10)
er (- n 1) (* i n))))) (fact-iter n 1))) (fact 10)
l
knet> ;Unspecified return value
AK
мдауш
AK
(define fact (lambda (n) (define fact-iter (lambda (n i) (if (= n 1) i (fact-it
er (- n 1) (* i n))))) (fact-iter n 1)))
er (- n 1) (* i n))))) (fact-iter n 1)))
l
knet> ERROR: List was opened but not closed
AK
(define fact (lambda (n) (define fact-iter (lambda (n i) (if (= n 1) i (fact-it
er (- n 1) (* i n))))) (fact-iter n 1)))
er (- n 1) (* i n))))) (fact-iter n 1)))
l
knet> ;Value: fact
AK
(fact 10)
l
knet> ;Unspecified return value
ХЛ
AK
AP
надо (= ) реализовать )
AK
Надо бы)
AK
А, блин, переводы строк же
ХЛ
+ - * > < >= <= cons car cdr quote if set! define lambda begin
Хм
ХЛ
(>= 3 3)