diff options
Diffstat (limited to 'tests/fibonacci.hgn')
-rw-r--r-- | tests/fibonacci.hgn | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/tests/fibonacci.hgn b/tests/fibonacci.hgn new file mode 100644 index 0000000..f2ea776 --- /dev/null +++ b/tests/fibonacci.hgn @@ -0,0 +1,23 @@ +main := proc() { + n := read_int(0) + fib(n) + exit(0) +} + +fib := proc(n) { + a := 0 + b := 1 + i := 0 + while i < n { + c := a + b + a = b + b = c + i = i + 1 + } + p(a) +} + +p := proc(x) { + x2 := x + print(x2) +} |