6 lines
184 B
Scheme
6 lines
184 B
Scheme
;; In Emacs, open this file in -*- Scheme -*- mode
|
|
|
|
;; Test the "letrec" expression
|
|
|
|
(letrec ((fact (fun (x) (if (@= 0 x) 1 (@* x (fact (@- x 1)))))))
|
|
(@byte-write (@- (fact 5) 55))) |