Anonymous user
Set consolidation: Difference between revisions
→{{header | Mathematica}}
Line 639:
=={{header | Mathematica}}==
<lang Mathematica>reduce[x_] :=
Block[{pairs, unique},
pairs =
Line 650 ⟶ 649:
consolidate[x__] := FixedPoint[reduce, {x}]</lang>
<pre>consolidate[{a, b}, {c, d}]
-> {{a, b}, {c, d}}
consolidate[{a, b}, {b, d}]
-> {{a, b, d}}
consolidate[{a, b}, {c, d}, {d, b}]
-> {{a, b, c, d}}
consolidate[{h, i, k}, {a, b}, {c, d}, {d, b}, {f, g, h}]
-> {{a,b,c,d},{f,g,h,i,k}}
=={{header|OCaml}}==
| |||