]> Witch of Git - ivy/blob - ivy-examples/fibonacci.vy
[tools] Add tools/run.py to compile and immediately run scripts
[ivy] / ivy-examples / fibonacci.vy
1 ; nextln: 0
2 ; nextln: 1
3 ; nextln: 1
4 ; nextln: 2
5 ; nextln: 3
6 ; nextln: 5
7 ; nextln: 8
8 ; nextln: 13
9 ; nextln: 21
10 ; nextln: 34
11 ; nextln: 55
12 ; nextln: 89
13 ; nextln: 144
14 ; nextln: 233
15 ; nextln: 377
16 ; nextln: 610
17 ; nextln: 987
18 ; nextln: 1597
19 ; nextln: 2584
20 ; nextln: 4181
21 ; nextln: 6765
22 ; nextln: 10946
23 ; nextln: 17711
24 ; nextln: 28657
25 ; nextln: 46368
26 ; nextln: 75025
27 ; nextln: 121393
28 ; nextln: 196418
29 ; nextln: 317811
30 ; nextln: 514229
31 ; nextln: 0
32
33 (let ([nil (lam (c n) (n))]
34 [cons (lam (x y) (lam (c n) (c x y)))]
35 [head true]
36 [fix (lam (f)
37 (let ([t (lam (x) (f (lam (v) (x x v))))])
38 (t t)))]
39 [if (lam (c t f) ((c t f)))])
40 ([fix (lam (recur a b l n)
41 (if (<= n 0)
42 [lam () (let [(_ (debug 0))] l)]
43 [lam () (recur b (+ (debug a) b) (cons a l) (- n 1))]))]
44 0 1 nil 30))