stuff
This commit is contained in:
8
W1/fasto/tests/fib.fo
Normal file
8
W1/fasto/tests/fib.fo
Normal file
@ -0,0 +1,8 @@
|
||||
fun int fibo(int n) =
|
||||
if n == 0 then 0
|
||||
else if n == 1 then 1
|
||||
else fibo(n - 1) + fibo(n - 2)
|
||||
|
||||
fun int main() =
|
||||
let n = read(int) in
|
||||
write(fibo(n))
|
Reference in New Issue
Block a user