Loading files
This file is pinned to the selected release. Download the original to open it in your design tool.
e9b051238This file is pinned to the selected release. Download the original to open it in your design tool.
{
fib n = if (<=) n 1 then 1 else (+) (fib ((-) n 2)) (fib ((-) n 1));
emitStr [] k = k;
emitStr (Cons x xs) k = emit x (emitStr xs k);
main = emitStr "fib(10) = " (emitInt (fib 10) (emit '\n' 0));
}