Find first missing positive: Difference between revisions
→{{header|Haskell}}: Tidied, applied Ormolu.
(→{{header|Haskell}}: Added a definition in terms of standard library functions) |
(→{{header|Haskell}}: Tidied, applied Ormolu.) |
||
Line 255:
=={{header|Haskell}}==
{{trans|Wren}}
<lang Haskell>import Data.List (sort)
task :: Integral a => [a] -> a
task = go . (0 :
go [x] = succ x
go (w : xs@(x : _))
main = print $ map task [[1,2,0], [3,4,-1,1], [7,8,9,11,12]]</lang>▼
main :: IO ()
main =
print $
▲ map
task
{{out}}
<pre>[3,2,1]</pre>
|