Anonymous user
Sorting algorithms/Sleep sort: Difference between revisions
Added Haskell version using mapConcurrently
(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>
| |||