repositories
/
cc1516.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
1810a032fe7aebb72868181dae6d8d2412fbe0ce
[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
}
11
12
main() {
13
return 0;
14
}