repositories
/
cc1516.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Function calls now clean up the arguments
[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
}