examples/old/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 }