Sorting algorithms/Sleep sort: Difference between revisions
Content added Content deleted
(added FreeBasic) |
(Added Haskell version using mapConcurrently) |
||
| Line 568: | Line 568: | ||
main :: IO () |
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> |
main = getArgs >>= sleepSort . map read</lang> |
||