diff options
Diffstat (limited to 'fibonacci.hgn')
-rw-r--r-- | fibonacci.hgn | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/fibonacci.hgn b/fibonacci.hgn index 362e244..b1ce582 100644 --- a/fibonacci.hgn +++ b/fibonacci.hgn @@ -1,19 +1,18 @@ main := proc() { - p(69) + n := read_int(0) + fib(n) + exit(0) +} + +fib := proc(n) { a := 0 b := 1 - n := 10 - # n := read_int(0) - while n > 0 { + i := 0 + while i < n { c := a + b a = b b = c - n = n - 1 + i = i + 1 } print(a) - exit(0) -} - -p := proc() { - print(1) } |