Anonymous user
Set consolidation: Difference between revisions
Added Haskell solution
(Added Haskell solution) |
|||
Line 350:
[map[A:true C:true B:true D:true] map[G:true F:true I:true H:true K:true]]
</pre>
=={{header|Haskell}}==
<lang Haskell>import qualified Data.Set as S
consolidate :: Ord a => [S.Set a] -> [S.Set a]
consolidate = foldl comb []
where comb [] s' = [s']
comb (s:ss) s'
| S.null (s `S.intersection` s') = s : comb ss s'
| otherwise = comb ss (s `S.union` s')
</lang>
=={{header|J}}==
| |||