Data commit

Task/Apply-a-callback-to-an-array/Yabasic/apply-a-callback-to-an-array.basic

@@ -0,0 +1,31 @@
+sub map(f$, t())
+    local i
+
+    for i = 1 to arraysize(t(), 1)
+        t(i) = execute(f$, t(i))
+    next i
+end sub
+
+sub add1(x)
+    return x + 1
+end sub
+
+sub square(x)
+    return x * x
+end sub
+
+dim t(10)
+
+for i = 1 to 10
+    t(i) = i
+    print t(i), "\t";
+next i
+print
+
+//map("add1", t())
+map("square", t())
+
+for i = 1 to 10
+    print t(i), "\t";
+next i
+print