Data commit

Task/Apply-a-callback-to-an-array/ERRE/apply-a-callback-to-an-array.erre

@@ -0,0 +1,24 @@
+PROGRAM CALLBACK
+
+!
+! for rosettacode.org
+!
+
+DIM A[5]
+
+FUNCTION CBACK(X)
+   CBACK=2*X-1
+END FUNCTION
+
+PROCEDURE PROCMAP(ZETA,DUMMY(X)->OUTP)
+   OUTP=DUMMY(ZETA)
+END PROCEDURE
+
+BEGIN
+   A[1]=1  A[2]=2   A[3]=3  A[4]=4  A[5]=5
+   FOR I%=1 TO 5 DO
+      PROCMAP(A[I%],CBACK(X)->OUTP)
+      PRINT(OUTP;)
+   END FOR
+   PRINT
+END PROGRAM