A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Apply-a-callback-to-an-array/M4/apply-a-callback-to-an-array.m4
+++ b/Task/Apply-a-callback-to-an-array/M4/apply-a-callback-to-an-array.m4
@ -0,0 +1,9 @@
+define(`foreach', `pushdef(`$1')_foreach($@)popdef(`$1')')dnl
+define(`_arg1', `$1')dnl
+define(`_foreach', `ifelse(`$2', `()', `',
+   `define(`$1', _arg1$2)$3`'$0(`$1', (shift$2), `$3')')')dnl
+dnl
+define(`apply',`foreach(`x',$1,`$2(x)')')dnl
+dnl
+define(`z',`eval(`$1*2') ')dnl
+apply(`(1,2,3)',`z')