March 2014 update

2014-04-02 16:56:35 +00:00 · 2014-04-02 16:56:35 +00:00 · a25938f123
commit a25938f123
parent 09687c4926
1846 changed files with 21876 additions and 5203 deletions
--- a/Task/Apply-a-callback-to-an-array/TXR/apply-a-callback-to-an-array.txr
+++ b/Task/Apply-a-callback-to-an-array/TXR/apply-a-callback-to-an-array.txr
@ -1,7 +1,11 @@
-@(do
-   (defun mapvec (vec fun)
-     (each ((i (range 0 (- (length vec) 1))))
-       [fun [vec i]]))
-
-   (mapvec #(1 2 3 4 5 6 7 8 9 10)
-           (lambda (x) (format t "~a\n" x))))
+$ txr -e '[mapcar prinl #(1 2 3 4 5 6 7 8 9 10)]'
+1
+2
+3
+4
+5
+6
+7
+8
+9
+10