March 2014 update

Task/Apply-a-callback-to-an-array/Frink/apply-a-callback-to-an-array.frink

@@ -0,0 +1,3 @@
+f = {|x| x^2}   // Anonymous function to square input
+a = [1,2,3,5,7]
+println[map[f, a]]

Task/Apply-a-callback-to-an-array/JavaScript/apply-a-callback-to-an-array-1.js

@@ -1,7 +1,9 @@
 function map(a, func) {
-  for (var i in a)
-    a[i] = func(a[i]);
+  var ret = [];
+  for (var i = 0; i < a.length; i++) {
+    ret[i] = func(a[i]);
+  }
+  return ret;
 }
 
-var a = [1, 2, 3, 4, 5];
-map(a, function(v) { return v * v; });
+map([1, 2, 3, 4, 5], function(v) { return v * v; });

Task/Apply-a-callback-to-an-array/JavaScript/apply-a-callback-to-an-array-2.js

@@ -1 +1 @@
-var a = (1).to(10).collect(Math.pow.curry(undefined,2));
+[1, 2, 3, 4, 5].map(function(v) { return v * v; });

Task/Apply-a-callback-to-an-array/JavaScript/apply-a-callback-to-an-array-3.js

@@ -1,15 +1 @@
-function cube(num) {
-  return Math.pow(num, 3);
-}
-
-var numbers = [1, 2, 3, 4, 5];
-
-// get results of calling cube on every element
-var cubes1 = numbers.map(cube);
-
-// display each result in a separate dialog
-cubes1.forEach(alert);
-
-// array comprehension
-var cubes2 = [cube(n) for each (n in numbers)];
-var cubes3 = [n * n * n for each (n in numbers)];
+[1, 2, 3, 4, 5].map(v => v * v);

Task/Apply-a-callback-to-an-array/TXR/apply-a-callback-to-an-array.txr

@@ -1,7 +1,11 @@
-@(do
-   (defun mapvec (vec fun)
-     (each ((i (range 0 (- (length vec) 1))))
-       [fun [vec i]]))
-
-   (mapvec #(1 2 3 4 5 6 7 8 9 10)
-           (lambda (x) (format t "~a\n" x))))
+$ txr -e '[mapcar prinl #(1 2 3 4 5 6 7 8 9 10)]'
+1
+2
+3
+4
+5
+6
+7
+8
+9
+10