Sorting algorithms/Sleep sort: Difference between revisions
Content deleted Content added
added FreeBasic |
Added Haskell version using mapConcurrently |
||
Line 568:
main :: IO ()
main = getArgs >>= sleepSort . map read</lang>
===Using mapConcurrently===
<lang haskell>import System.Environment
import Control.Concurrent
import Control.Concurrent.Async
sleepSort :: [Int] -> IO [()]
sleepSort = mapConcurrently (\x -> threadDelay (x*10^4) >> print x)
main :: IO [()]
main = getArgs >>= sleepSort . map read</lang>
| |||