l
knet> ;Value: true
Size: a a a
2020 March 18
AK
(define fact (lambda (n) (define fact-iter (lambda (n i) (if (= n 1) i (fact-iter (- n 1) (* i n))))) (fact-iter n 1)))
l
knet> ;Value: fact
ХЛ
(and true false)
l
knet> ERROR: Unbound variable: and
AK
(fact 10)
l
knet> ;Unspecified return value
ХЛ
ХЛ
(if true false)
l
knet> ;Value: false
ХЛ
(define and (lambda (x y) (if x y false)))
l
knet> ;Value: and
ХЛ
(and true false)
l
knet> ;Value: false
AK
(define упади (lambda (x) (упади x)))
l
knet> ;Value: упади
AK
(упади)
AK
(извините)
ХЛ
(define = (lambda (x y) (and (>= x y) (<= x y))))
AP
(упади)
Ну вот )))