tests/fibonacci.hgn


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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)
}