13 lines
153 B
Text
13 lines
153 B
Text
|
fun{FibI N}
|
||
|
|
Temp = {NewCell 0}
|
||
|
|
A = {NewCell 0}
|
||
|
|
B = {NewCell 1}
|
||
|
|
in
|
||
|
|
for I in 1..N do
|
||
|
|
Temp := @A + @B
|
||
|
|
A := @B
|
||
|
|
B := @Temp
|
||
|
|
end
|
||
|
|
@A
|
||
|
|
end
|