aboutsummaryrefslogtreecommitdiff
path: root/fibonacci.hgn
diff options
context:
space:
mode:
Diffstat (limited to 'fibonacci.hgn')
-rw-r--r--fibonacci.hgn19
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)
}