mirror of
https://github.com/azur1s/bobbylisp.git
synced 2024-10-16 02:37:40 -05:00
6 lines
112 B
Plaintext
6 lines
112 B
Plaintext
(fun factorial (x)
|
|
(if (<= x 1)
|
|
1
|
|
(* x (factorial (- x 1)))))
|
|
(do
|
|
(print (factorial 7))) |