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