Set consolidation: Difference between revisions
Content added Content deleted
(J implementation) |
m (J: slightly more concise) |
||
Line 354: | Line 354: | ||
<lang J>consolidate=:4 :0/ |
<lang J>consolidate=:4 :0/ |
||
b=. y 1&e.@e. |
b=. y 1&e.@e.&> x |
||
if. 0 e. b do. (~.;x,b#y);(-.b)#y |
if. 0 e. b do. (~.;x,b#y);(-.b)#y |
||
else. ,<~.;x,b#y end. |
else. ,<~.;x,b#y end. |