summaryrefslogtreecommitdiff
path: root/files/practicum/Flatten.icl
diff options
context:
space:
mode:
Diffstat (limited to 'files/practicum/Flatten.icl')
-rw-r--r--files/practicum/Flatten.icl14
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