8 lines
135 B
Plaintext
8 lines
135 B
Plaintext
let factorial(x) = do
|
|
if (x-1) return x * factorial(x-1)
|
|
return 1
|
|
|
|
let i = 10000000
|
|
term.log(factorial(10000))
|
|
while (i) do
|
|
i=i-1 |