35 lines
585 B
Plaintext
35 lines
585 B
Plaintext
class MAIN is
|
|
|
|
-- RECURSIVE --
|
|
fibo(n :INTI):INTI
|
|
pre n >= 0
|
|
is
|
|
if n < 2.inti then return n; end;
|
|
return fibo(n - 2.inti) + fibo(n - 1.inti);
|
|
end;
|
|
|
|
-- ITERATIVE --
|
|
fibo_iter(n :INTI):INTI
|
|
pre n >= 0
|
|
is
|
|
n3w :INTI;
|
|
|
|
if n < 2.inti then return n; end;
|
|
last ::= 0.inti; this ::= 1.inti;
|
|
loop (n - 1.inti).times!;
|
|
n3w := last + this;
|
|
last := this;
|
|
this := n3w;
|
|
end;
|
|
return this;
|
|
end;
|
|
|
|
main is
|
|
loop i ::= 0.upto!(16);
|
|
#OUT + fibo(i.inti) + " ";
|
|
#OUT + fibo_iter(i.inti) + "\n";
|
|
end;
|
|
end;
|
|
|
|
end;
|