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/Pick-random-element/TXR/pick-random-element.txr
+++ b/Task/Pick-random-element/TXR/pick-random-element.txr
@ -1,3 +1,3 @@
-@(do (defun randelem (vec)
-       (vecref vec (random nil (length vec)))))
+@(do (defun randelem (seq)
+       [seq (random nil (length seq))]))
@(bind x @(randelem #("a" "b" "c" "d")))