Hash join: Difference between revisions

28 bytes removed ,  10 years ago
m
J: simplify
(J)
m (J: simplify)
Line 467:
 
<lang J>hash=: ]
clean=: #~ 0 -.@e."1 #&>
dojoin=:3 :0
c1=. {.{.y
c2=. (1 {"1 y) -. a:
c3=. (2 {"1 y) -. a:
c1,"1 >{c1;c2,&<c3
)
 
JOIN=: clean ; -.&a: ,/each(hash@{."1 <@dojoin/. ]) (1 1 0&#inv@|."1 table1), 1 0 1#inv"1 table2</lang>
 
Result:
Line 495 ⟶ 494:
│Glory│28│Buffy │
└─────┴──┴───────┘</lang>
 
 
=={{header|OCaml}}==
6,962

edits