История изменений
Исправление monk, (текущая версия) :
;;в данном случае
;;<variable1> n
;;<init1> (lambda (n) ...)
В данном случае <variable1> even?. Ведь начало (even? (lambda …
library procedure: (odd? n)
Если не компилируется из-за того, что уже определена, можно написать так:
(letrec ((my-even?
(lambda (n)
(if (zero? n)
#t
(my-odd? (- n 1)))))
(my-odd?
(lambda (n)
(if (zero? n)
#f
(my-even? (- n 1))))))
(even? 88))
Исходная версия monk, :
;;в данном случае
;;<variable1> n
;;<init1> (lambda (n) ...)
В данном случае even?. Ведь начало (even? (lambda …
library procedure: (odd? n)
Если не компилируется из-за того, что уже определена, можно написать так:
(letrec ((my-even?
(lambda (n)
(if (zero? n)
#t
(my-odd? (- n 1)))))
(my-odd?
(lambda (n)
(if (zero? n)
#f
(my-even? (- n 1))))))
(even? 88))