Rosetta Code

Set consolidation: Difference between revisions

Page Discussion

Set consolidation (view source)

Revision as of 10:16, 11 March 2016

16 bytes removed ,  8 years ago
Change unsage IO to monad IO
m (Added Sidef)
(Change unsage IO to monad IO)
Line 663:
| else = conso (r ++ [y]) ys</lang>
Usage:
<lang ela>open consolemonad io
 
:::IO
consolidate [['H','I','K'], ['A','B'], ['C','D'], ['D','B'], ['F','G','H']] |> writen $▼
 
consolidate [['A','B'], ['B','D']] |> writen</lang>▼
do
{{out}}
▲ x <- return $ consolidate [['H','I','K'], ['A','B'], ['C','D'], ['D','B'], ['F','G','H']] |> writen $
<pre>[[K,I,F,G,H],[A,C,D,B]]
putLn x
[[A,B,D]]</pre>
▲ y <- return $ consolidate [['A','B'], ['B','D']] |> writen</lang>
putLn y</pre>
 
=={{header|F_Sharp|F#}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/214610"