undar-lang/test/fib.ul

23 lines
352 B
Plaintext
Executable File

/**
* calculate fibonacci number 23
*/
print(fib(23) as str);
halt;
/**
* Recursively calculate fibonacci
*/
function fib(nat n) nat {
if (n < 2) { return n; }
return fib(n - 2) + fib(n - 1);
}
function print(str string) {
nat i = 0;
while (i < string.length) {
write = string[i];
i = i + 1;
}
write = '\n';
}