Time for an 2014 update…

Task/Apply-a-callback-to-an-array/Deja-Vu/apply-a-callback-to-an-array.djv

@@ -0,0 +1,8 @@
+!. map @++ [ 1 4 8 ]
+
+#implemented roughly like this:
+#map f lst:
+#    ]
+#    for i in lst:
+#         f i
+#    [

Task/Apply-a-callback-to-an-array/Elena/apply-a-callback-to-an-array.elena

@@ -1,7 +1,7 @@
 #define system.
 
 #symbol PrintSecondPower =
-    &&:n [ console writeLine:(n * n) ].
+    (:n) [ console writeLine:(n * n) ].
 
 #symbol program =
 [

Task/Apply-a-callback-to-an-array/GAP/apply-a-callback-to-an-array.gap

@@ -7,6 +7,10 @@ a;
 # [ 1, 4, 9, 16 ]
 
 # Apply and don't change values
+List(b, n -> n*n);
+# [ 1, 4, 9, 16 ]
+
+# Apply and don't return anything (only side effects)
 Perform(b, Display);
 1
 2

Task/Apply-a-callback-to-an-array/Julia/apply-a-callback-to-an-array.julia

@@ -17,6 +17,6 @@ end
 
 squares3 = [n * n for n in numbers]         # no need for a function,
 
-squares4 = numbers .* numbers				#element-wise operation
+squares4 = numbers .* numbers				# element-wise operation
 
-squares4a = numbers .^ 2	#includes .+, .-, ./, comparison, and bitwise operations as well
+squares4a = numbers .^ 2	#  most arithmetic operations can be done element-wise

Task/Apply-a-callback-to-an-array/PL-I/apply-a-callback-to-an-array.pli

@@ -0,0 +1,3 @@
+   declare x(5) initial (1,3,5,7,8);
+   x = sqrt(x);
+   x = sin(x);