Hash join: Difference between revisions

Content added Content deleted
(→‎{{header|LFE}}: Added LFE implementation)
m (→‎{{header|LFE}}: Added missing data definitions)
Line 686: Line 686:
</lang>
</lang>


Output in LFE REPL:
Table definitions: in the LFE REPL:
<lang lisp>
> (set ss '((#(age 27) #(name "Jonah"))
(#(age 18) #(name "Alan"))
(#(age 28) #(name "Glory"))
(#(age 18) #(name "Popeye"))
(#(age 28) #(name "Alan"))))


> (set rs '((#(nemesis "Whales") #(name "Jonah"))
(#(nemesis "Spiders") #(name "Jonah"))
(#(nemesis "Ghosts") #(name "Alan"))
(#(nemesis "Zombies") #(name "Alan"))
(#(nemesis "Buffy") #(name "Glory"))))
</lang>

Output in LFE REPL:
<lang lisp>
<lang lisp>
> (hash-join ss 'name rs 'name)
> (hash-join ss 'name rs 'name)