examples/strict.fusp


1
2
3
4
5
6
7
8
9
10

sub a b = code sub a b;

take 0 _       = [];
take _ []      = [];
take n ![x:xs] = [x:take (sub 1 n) xs];

repeat 0 x = [];
repeat n x = [x:repeat (sub 1 n) x];

main = take 1 (repeat 200 5);