xlang/test/fib.x
2023-01-07 17:10:03 +01:00

25 lines
339 B
Plaintext

main() : int {
for i := 0; i < 10; i =+ 1 {
print fib_rec(i);
print fib_iter(i);
}
}
fib_rec(n : int) : int {
if n < 2 {
return 1;
}
return fib_rec(n - 1) + fib_rec(n - 2);
}
fib_iter(n : int) : int {
x0 := 1;
x1 := 1;
for i := 0; i < n; i =+ 1 {
t := x0 + x1;
x0 = x1;
x1 = t;
}
return x0;
}