Just another update

Task/Apply-a-callback-to-an-array/00DESCRIPTION

@@ -1 +1,2 @@
-In this task, the goal is to take a combined set of elements and apply a function to each element.
+In this task, the goal is to take a combined set of elements
+and apply a function to each element.

Task/Apply-a-callback-to-an-array/ACL2/apply-a-callback-to-an-array.acl2

@@ -1,5 +1,8 @@
-(defun sq-each (xs)
+(defun apply-to-each (xs)
    (if (endp xs)
        nil
-       (cons (* (first xs) (first xs))
+       (cons (fn-to-apply (first xs))
              (sq-each (rest xs)))))
+
+(defun fn-to-apply (x)
+   (* x x))

Task/Apply-a-callback-to-an-array/Aime/apply-a-callback-to-an-array.aime

@@ -5,7 +5,7 @@ map(list l, void (*fp) (object))
 
     i = 0;
     while (i < l_length(l)) {
-	fp(l_query(l, i));
+	fp(l[i]);
 	i += 1;
     }
 }

Task/Apply-a-callback-to-an-array/AppleScript/apply-a-callback-to-an-array.applescript

@@ -0,0 +1,11 @@
+on callback for arg
+	-- Returns a string like "arc has 3 letters"
+	arg & " has " & (count arg) & " letters"
+end callback
+
+set alist to {"arc", "be", "circle"}
+repeat with aref in alist
+	-- Passes a reference to some item in alist
+	-- to callback, then speaks the return value.
+	say (callback for aref)
+end repeat

Task/Apply-a-callback-to-an-array/Babel/apply-a-callback-to-an-array-1.pb

@@ -0,0 +1,6 @@
+((main
+    { (1 1 2 3 5 8 13 21) dup
+    {double !} each
+    {%d ' ' . <<} each})
+
+(double { dup 2 * set }))

Task/Apply-a-callback-to-an-array/Babel/apply-a-callback-to-an-array-2.pb

@@ -0,0 +1,9 @@
+((main
+    { (1 1 2 3 5 8 13 21)
+    {double !} each
+    collect !
+    {%d ' ' . <<} each})
+
+(double { 2 * })
+
+(collect { -1 take }))

Task/Apply-a-callback-to-an-array/Babel/apply-a-callback-to-an-array-3.pb

@@ -0,0 +1,9 @@
+((main
+    { [val 1 1 2 3 5 8 13 21]
+    {double !} eachar
+    collect !
+    {%d ' ' . <<} each})
+
+(double { 2 * })
+
+(collect { -1 take }))

Task/Apply-a-callback-to-an-array/Bracmat/apply-a-callback-to-an-array.bracmat

@@ -0,0 +1,29 @@
+( ( callbackFunction1
+  =   location value
+    .   !arg:(?location,?value)
+      & out$(str$(array[ !location "] = " !!value))
+  )
+& ( callbackFunction2
+  =   location value
+    .   !arg:(?location,?value)
+      & !!value^2:?!value
+  )
+& ( map
+  =   arr len callback i
+    .   !arg:(?arr,?len,?callback)
+      & 0:?i
+      &   whl
+        ' ( !i:<!len
+          & !callback$(!i,!i$!arr)
+          & 1+!i:?i
+          )
+  )
+& tbl$(array,4)
+& 1:?(0$array)
+& 2:?(1$array)
+& 3:?(2$array)
+& 4:?(3$array)
+& map$(array,4,callbackFunction1)
+& map$(array,4,callbackFunction2)
+& map$(array,4,callbackFunction1)
+);

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

@@ -1,4 +1,4 @@
-$ txr -e '[mapcar prinl #(1 2 3 4 5 6 7 8 9 10)]'
+$ txr -e '[mapdo prinl #(1 2 3 4 5 6 7 8 9 10)]'
 1
 2
 3

Task/Apply-a-callback-to-an-array/Vim-Script/apply-a-callback-to-an-array.vim

@@ -0,0 +1,4 @@
+echo map([10, 20, 30], 'v:val * v:val')
+echo map([10, 20, 30], '"Element " . v:key . " = " . v:val')
+echo map({"a": "foo", "b": "Bar", "c": "BaZ"}, 'toupper(v:val)')
+echo map({"a": "foo", "b": "Bar", "c": "BaZ"}, 'toupper(v:key)')

Task/Apply-a-callback-to-an-array/Yacas/apply-a-callback-to-an-array.yacas

@@ -0,0 +1,5 @@
+Sin /@ {1, 2, 3, 4}
+
+MapSingle(Sin, {1,2,3,4})
+
+MapSingle({{x}, x^2}, {1,2,3,4})