Set consolidation: Difference between revisions

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