files/practicum/Flatten.icl

   1 module Flatten
   2
   3 import StdEnv
   4
   5 //      1.
   6 Start   = flatten [ [x 0,x 1,x 2], [x 3,x 4], [x 5], [] ]
   7
   8 //      2.
   9 Start   = flatten [ [ [x 0,x 1,x 2], [x 3,x 4] ], [], [ [x 5], [] ] ]
  10
  11 //      3.
  12 Start   = flatten (flatten [ [ [x 0,x 1,x 2], [x 3,x 4] ], [], [ [x 5],[] ] ] )
  13
  14 x i             = x +++ toString i