Set consolidation: Difference between revisions

Content added Content deleted

Inline

@@ Line 663: / Line 663: @@
                                               | else = conso (r ++ [y]) ys</lang>
 Usage:
-<lang ela>open console
+<lang ela>open monad 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']]
-<pre>[[K,I,F,G,H],[A,C,D,B]]
+  putLn x
-[[A,B,D]]</pre>
+  y <- return $ consolidate [['A','B'], ['B','D']]
+  putLn y</pre>
 =={{header|F_Sharp|F#}}==