Data update

Task/Even-or-odd/ALGOL-60/even-or-odd.alg

@@ -0,0 +1,21 @@
+begin
+
+integer i;
+
+boolean procedure even(n);
+  value n; integer n;
+begin
+  even := (n = entier(n/2) * 2);
+end;
+
+comment - exercise the function;
+for i := 1 step 3 until 12 do
+  begin
+    outinteger(1,i);
+    if even(i) then
+      outstring(1,"is even\n")
+    else
+      outstring(1,"is odd\n");
+  end;
+
+end

Task/Even-or-odd/EMal/even-or-odd.emal

@@ -1,20 +1,16 @@
-List evenCheckers = fun[
-  logic by int i do return i % 2 == 0 end,
-  logic by int i do return i & 1 == 0 end]
-List oddCheckers = fun[
-  logic by int i do return i % 2 != 0 end,
-  logic by int i do return i & 1 == 1 end]
-writeLine("integer".padStart(10, " ") + "|is_even" + "|is_odd |")
+List evenCheckers ← fun[
+  <int i|i % 2 æ 0,
+  <int i|i & 1 æ 0]
+List oddCheckers ← fun[
+  <int i|i % 2 ≠ 0,
+  <int i|i & 1 æ 1]
+writeLine("integer".padStart(10, " "), "|is_even", "|is_odd |")
 writeLine("----------+-------+-------+")
 for each int i in range(-5, 6).append(3141592653)
-  write((text!i).padStart(10, " ") + "| ")
-  for each fun isEven in evenCheckers
-    write(isEven(i) + "  ")
-  end
+  write((text!i).padStart(10, " "), "| ")
+  evenCheckers.list(<fun isEven|write(isEven(i), "  "))
   write("| ")
-  for each fun isOdd in oddCheckers
-    write(isOdd(i) + "  ")
-  end
+  oddCheckers.list(<fun isOdd|write(isOdd(i), "  "))
   writeLine("|")
 end
 writeLine("----------+-------+-------+")