Update all new Tasks

2015-02-20 09:02:09 -05:00 · 2015-02-20 09:02:09 -05:00 · 91df62d461
commit 91df62d461
parent 00a190b0a6
5697 changed files with 93386 additions and 804 deletions
--- a/Task/Hash-join/TXR/hash-join.txr
+++ b/Task/Hash-join/TXR/hash-join.txr
@ -0,0 +1,20 @@
+@(do
+   (defvar age-name '((27 Jonah)
+                      (18 Alan)
+                      (28 Glory)
+                      (18 Popeye)
+                      (28 Alan)))
+
+   (defvar nemesis-name '((Jonah Whales)
+                          (Jonah Spiders)
+                          (Alan Ghosts)
+                          (Alan Zombies)
+                          (Glory Buffy)))
+
+   (defun hash-join (left left-key right right-key)
+     (let ((join-hash [group-by left-key left])) ;; hash phase
+       (append-each ((r-entry right))            ;; join phase
+         (collect-each ((l-entry [join-hash [right-key r-entry]]))
+           ^(,l-entry ,r-entry)))))
+
+   (format t "~s\n" [hash-join age-name second nemesis-name first]))