langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Apply-a-callback-to-an-array/Pike/apply-a-callback-to-an-array.pike
+++ b/Task/Apply-a-callback-to-an-array/Pike/apply-a-callback-to-an-array.pike
@ -0,0 +1,8 @@
+int cube(int n)
+{
+    return n*n*n;
+}
+
+array(int) a = ({ 1,2,3,4,5 });
+array(int) b = cube(a[*]);      // automap operator
+array(int) c = map(a, cube);    // conventional map function