15 lines
186 B
Text
15 lines
186 B
Text
(var:int i 0)
|
|
(while (< i 10000)
|
|
(var:int a 0)
|
|
(var:int b 1)
|
|
(var:int c)
|
|
(var:int n 0)
|
|
|
|
(while (< n 40)
|
|
(c b)
|
|
(b (+ a b))
|
|
(a c)
|
|
(n (+ n 1))
|
|
)
|
|
(i (+ i 1))
|
|
)
|