48 lines
840 B
Plaintext
48 lines
840 B
Plaintext
#include "std.alpha"
|
|
|
|
function entry : string2integer
|
|
function fib : integer2integer
|
|
|
|
fib(i) := {
|
|
|
|
if (i < 1) then {
|
|
return 0;
|
|
} else {
|
|
i := i;
|
|
}
|
|
|
|
if (i < 2) then {
|
|
return i;
|
|
} else {
|
|
i := i;
|
|
}
|
|
|
|
return fib(i-1) + fib(i-2);
|
|
}
|
|
|
|
entry (arg) := {
|
|
[ integer: result; integer: input; integer: fibValue]
|
|
|
|
result := printC('E');
|
|
result := printC('n');
|
|
result := printC('t');
|
|
result := printC('e');
|
|
result := printC('r');
|
|
result := printC(' ');
|
|
result := printC('N');
|
|
result := printC('u');
|
|
result := printC('m');
|
|
result := printC('b');
|
|
result := printC('e');
|
|
result := printC('r');
|
|
result := printC(':');
|
|
result := printC(' ');
|
|
|
|
input := inI(1);
|
|
fibValue := fib(input);
|
|
|
|
result := printI(fibValue);
|
|
|
|
return 0;
|
|
}
|