From a7d7542dc646a5fd124ef71e71ce260889f1701b Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Tue, 2 Feb 2016 19:24:50 +0100 Subject: Moved to 1415 directory --- 1415/files/practicum/Flatten.icl | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 1415/files/practicum/Flatten.icl (limited to '1415/files/practicum/Flatten.icl') diff --git a/1415/files/practicum/Flatten.icl b/1415/files/practicum/Flatten.icl new file mode 100644 index 0000000..2d6d823 --- /dev/null +++ b/1415/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 -- cgit v1.2.3