aboutsummaryrefslogtreecommitdiff
path: root/fibonacci.hgn
blob: 362e2446828f2471811bb0b735ddde445c15517a (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
main := proc() {
    p(69)
    a := 0
    b := 1
    n := 10
    # n := read_int(0)
    while n > 0 {
        c := a + b
        a = b
        b = c
        n = n - 1
    }
    print(a)
    exit(0)
}

p := proc() {
    print(1)
}