B

Task/Apply-a-callback-to-an-array/BBC-BASIC/apply-a-callback-to-an-array.bbc

@@ -0,0 +1,16 @@
+      DIM a(4)
+      a() = 1, 2, 3, 4, 5
+      PROCmap(a(), FNsqrt())
+      FOR i = 0 TO 4
+        PRINT a(i)
+      NEXT
+      END
+
+      DEF FNsqrt(n) = SQR(n)
+
+      DEF PROCmap(array(), RETURN func%)
+      LOCAL I%
+      FOR I% = 0 TO DIM(array(),1)
+        array(I%) = FN(^func%)(array(I%))
+      NEXT
+      ENDPROC

Task/Apply-a-callback-to-an-array/Brat/apply-a-callback-to-an-array-1.brat

@@ -0,0 +1,4 @@
+#Print out each element in array
+[:a :b :c :d :e].each { element |
+	p element
+}

Task/Apply-a-callback-to-an-array/Brat/apply-a-callback-to-an-array-2.brat

@@ -0,0 +1 @@
+[:a :b :c :d :e].each ->p