Set consolidation: Difference between revisions

J: simplify
m (J: slightly more concise)
(J: simplify)
Line 355:
<lang J>consolidate=:4 :0/
b=. y 1&e.@e.&> x
if(1,-. 0 e. b do. )#(~.;x,b#y);(-.b)#y
else. ,<~.;x,b#y end.
)</lang>
 
6,962

edits