diff options
Diffstat (limited to 'files/practicum/Flatten.icl')
| -rw-r--r-- | files/practicum/Flatten.icl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/files/practicum/Flatten.icl b/files/practicum/Flatten.icl new file mode 100644 index 0000000..2d6d823 --- /dev/null +++ b/files/practicum/Flatten.icl @@ -0,0 +1,14 @@ +module Flatten
+
+import StdEnv
+
+// 1.
+Start = flatten [ [x 0,x 1,x 2], [x 3,x 4], [x 5], [] ]
+
+// 2.
+Start = flatten [ [ [x 0,x 1,x 2], [x 3,x 4] ], [], [ [x 5], [] ] ]
+
+// 3.
+Start = flatten (flatten [ [ [x 0,x 1,x 2], [x 3,x 4] ], [], [ [x 5],[] ] ] )
+
+x i = x +++ toString i
|