diff options
Diffstat (limited to 'test/fib.t')
-rw-r--r-- | test/fib.t | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/test/fib.t b/test/fib.t new file mode 100644 index 0000000..2a24f6d --- /dev/null +++ b/test/fib.t @@ -0,0 +1,18 @@ +fun fib[a] + if a < 2 + @1 + end + @( call fib[a-1] + call fib[a-2] ) +end + +# main function +fun main[num] + sum = 0 + i = 0 + while (i < num) + sum = sum + call fib[i] + i = i + 1 + end + print sum + @0 +end |