undar-lang-fixed-length/test/fib.ul

31 lines
406 B
Plaintext

/**
* Plexes
*/
plex Terminal {
nat handle;
}
/**
* Main function
*/
function main() {
pln(fib(35) as str);
}
/**
* Recursively calculate fibonacci
*/
function fib(int n) int {
if (n < 2) { return n; }
return fib(n - 2) + fib(n - 1);
}
/**
* Print with a newline
*/
function pln(str message) {
Terminal term = open("term:///0", 0);
term.write(message);
term.write("\n");
}