mirror of
https://github.com/azur1s/bobbylisp.git
synced 2024-10-16 02:37:40 -05:00
19 lines
348 B
Plaintext
19 lines
348 B
Plaintext
fun factorial (n: int) : int = do
|
|
match n with
|
|
| 0 -> return 1
|
|
| else return n * factorial(n - 1)
|
|
end
|
|
end
|
|
|
|
fun also_factorial (n: int) : int = do
|
|
if n == 0 then
|
|
return 1
|
|
else
|
|
return n * also_factorial(n - 1)
|
|
end
|
|
end
|
|
|
|
fun main : void = do
|
|
let result : int = factorial(5)
|
|
@write(result)
|
|
end |