Loading files
This file is pinned to the selected release. Download the original to open it in your design tool.
{
fib n = case (<=) n 1 of {
True -> 1;
False -> (+) (fib ((-) n 2)) (fib ((-) n 1));
};
seq n = case (<=) n 35 of {
True -> st32 0 (fib n) (seq ((+) n 1));
False -> seq 0;
};
main = seq 0;
-- main = st32 0 240 7;
}
1753a4cb4This file is pinned to the selected release. Download the original to open it in your design tool.