Common sorted list: Difference between revisions
→{{header|Haskell}}: Added a Haskell version
(→{{header|Haskell}}: Added a Haskell version) |
|||
Line 169:
[1 3 4 5 7 8 9]
</pre>
=={{header|Haskell}}==
<lang haskell>import Data.List (nub, sort)
-------------------- COMMON SORTED LIST ------------------
commonSorted :: Ord a => [[a]] -> [a]
commonSorted = sort . nub . concat
--------------------------- TEST -------------------------
main :: IO ()
main =
print $
commonSorted
[ [5, 1, 3, 8, 9, 4, 8, 7],
[3, 5, 9, 8, 4],
[1, 3, 7, 9]
]</lang>
{{Out}}
<pre>[1,3,4,5,7,8,9]</pre>
=={{header|Julia}}==
| |||