September 2017 Update

Task/Combinations/Elena/combinations.elena

@@ -1,25 +1,22 @@
-#define system.
-#define system'routines.
-#define extensions.
-#define extensions'routines.
+import system'routines.
+import extensions.
+import extensions'routines.
 
-#symbol(const)M = 3.
-#symbol(const)N = 5.
+const int M = 3.
+const int N = 5.
 
-// --- Numbers ---
-
-#symbol numbers = (:anN)
+numbers = (:anN)
 [
-    Array new &length:(anN int) set &every: (&index:n) [ Integer new &int:n ]
+    ^ Array new length:anN; populate(:n)( n )
 ].
 
-// --- Program ---
-
-#symbol program =
+program =
 [
-    #var aNumbers := numbers eval:N.
-    Combinator new:M &of:aNumbers run &each: aRow
+    var aNumbers := numbers eval:N.
+    Combinator new:M of:aNumbers; forEach(:aRow)
     [
-        console writeLine:aRow.
+        console printLine:aRow
     ].
+
+    console readChar.
 ].