Initial data commit

Task/Sorting-algorithms-Sleep-sort/Haskell/sorting-algorithms-sleep-sort-1.hs

@@ -0,0 +1,12 @@
+import System.Environment
+import Control.Concurrent
+import Control.Monad
+
+sleepSort :: [Int] -> IO ()
+sleepSort values = do
+        chan <- newChan
+        forM_ values (\time -> forkIO (threadDelay (50000 * time) >> writeChan chan time))
+        forM_ values (\_ -> readChan chan >>= print)
+
+main :: IO ()
+main = getArgs >>= sleepSort . map read

Task/Sorting-algorithms-Sleep-sort/Haskell/sorting-algorithms-sleep-sort-2.hs

@@ -0,0 +1,9 @@
+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