15 lines
206 B
Text
15 lines
206 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)
|
|
(set c b)
|
|
(set b (+ a b))
|
|
(set a c)
|
|
(set n (+ n 1))
|
|
)
|
|
(set i (+ i 1))
|
|
)
|