scarlett/compiler-the-translators
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fib

Browse Source
This commit is contained in:
Scarlett
2025-05-06 19:21:35 -04:00
parent d340a05b61
commit 17d6f50904
1 changed files with 6 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
tests/programs/fib.alpha
View File

@ -4,36 +4,20 @@ function entry : string2integer
function fib : integer2integer function fib : integer2integer
fib(i) := { fib(i) := {
[ integer: a; integer: b; integer: count ]
a := 1;
b := 2;
if (i = 0) then { if (i < 1) then {
return 0; return 0;
} else { } else {
a := a; i := i;
} }
if (i = 1) then { if (i < 2) then {
return 1; return i;
} else { } else {
a := a; i := i;
} }
if (i = 2) then { return fib(i-1) + fib(i-2);
return 2;
} else {
a := a;
}
count := 2;
while (count < i) {
count := count + 1;
}
return b;
} }
entry (arg) := { entry (arg) := {