examples/Markus/multiple_recursion.spl

   1 // Generates a list of zeros and ones
   2
   3 flip(n, l)
   4 {
   5   if( n <= 0 )
   6     return l;
   7   else
   8     return flop(n-1, 0:l);
   9 }
  10
  11 flop(n, l)
  12 {
  13   return flip(n, 1:l);
  14 }