elf
/
lang_in_20
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
lang_in_20/test.scm

8 lines
93 B
Scheme
Raw Permalink Blame History

(define fact
(lambda (x)
(if (== x 1) 1
(* x (fact (- x 1))))))
(fact 6)
Reference in New Issue View Git Blame Copy Permalink