Concurrentの練習がてらTLに微妙に流れてるsleep sortとやらを書いてみる． module Main where import Control.Monad(unless) import Control.Concurrent(threadDelay, forkIO) import Control.Concurrent.STM(newTVarIO, readTVarIO, readTVar, writeTVar, …