Loading files
This 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));
}
1753a4cb4This file is pinned to the selected release. Download the original to open it in your design tool.