Hash join: Difference between revisions

Content added Content deleted
(→‎{{header|TXR}}: Updated code. Works with TXR 76 and up which provides the group-by function.)
m (→‎{{header|TXR}}: Whitespace.)
Line 909: Line 909:


<pre>$ txr hash-join.txr
<pre>$ txr hash-join.txr

(((27 Jonah) (Jonah Whales)) ((27 Jonah) (Jonah Spiders)) ((18 Alan) (Alan Ghosts)) ((28 Alan) (Alan Ghosts)) ((18 Alan) (Alan Zombies)) ((28 Alan) (Alan Zombies)) ((28 Glory) (Glory Buffy)))</pre>
(((27 Jonah) (Jonah Whales)) ((27 Jonah) (Jonah Spiders)) ((18 Alan) (Alan Ghosts)) ((28 Alan) (Alan Ghosts)) ((18 Alan) (Alan Zombies)) ((28 Alan) (Alan Zombies)) ((28 Glory) (Glory Buffy)))</pre>