repositories
/
cc1516.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
bfe670128ac3c229a0c6ebc87cdc2345aa4e45ae
[cc1516.git]
/
examples
/
Markus
/
multiple_recursion.spl
1
// Generates a list of zeros and ones
2
3
flip(n, l) :: Int -> [Int] -> [Int] {
4
if( n <= 0 ) {return l;}
5
else {return flop(n-1, 0:l);}
6
}
7
8
flop(n, l) {
9
return flip(n, 1:l);
10
}