Code: Select all
(letrec
((IB "Enter initial balance: ")
( AT "Enter transaction (- for withdrawal): ")
(FB "Your final balance is: ")
.
.
Code: Select all
(letrec
((IB "Enter initial balance: ")
( AT "Enter transaction (- for withdrawal): ")
(FB "Your final balance is: ")
.
.
Code: Select all
(letn ((local-even? (lambda (n)
(if (= n 0) true
(local-odd? (- n 1)))))
(local-odd? (lambda (n)
(if (= n 0) nil
(local-even? (- n 1))))))
(list (local-even? 23) (local-odd? 23)))
;=> (nil true)
Code: Select all
(let ((local-even? (lambda (n)
(if (= n 0) true
(local-odd? (- n 1)))))
(local-odd? (lambda (n)
(if (= n 0) nil
(local-even? (- n 1))))))
(list (local-even? 23) (local-odd? 23)))
;=> (nil true)