14 lines
307 B
ObjectPascal
14 lines
307 B
ObjectPascal
function Fib(n: integer): integer;
|
|
function fibHelper(n,a,b: integer): integer :=
|
|
n = 1 ? a : fibHelper(n-1, b, a + b);
|
|
begin
|
|
if n <= 0 then
|
|
raise new System.ArgumentOutOfRangeException('Must be > 0','n');
|
|
Result := fibHelper(n,1,1);
|
|
end;
|
|
|
|
begin
|
|
for var i:=1 to 10 do
|
|
Fib(i).Print;
|
|
end.
|