Set consolidation: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
m (→{{header|J}}: restore proper handling of consolidate 'ab';'bd') |
||
Line 1,039:
<lang J>consolidate=:4 :0/
b=. y 1&e.@e.&> x
(1,-.b)#(~.;x,b#y);
)</lang>
| |||