PLEACのファイルコンテンツの章が面白そうだったのでHaskellでやってます。
import System.IO import System.Environment import Control.Concurrent main = do args <- getArgs h <- openFile (args!!0) ReadMode loop h where loop h = do end <- hIsEOF h if end then (threadDelay 1000000) >> loop h else do c <- hGetChar h putChar c hFlush stdout loop h
sleepさせるのはSystem.PosixにもあったんだけどControl.ConcurrentのthreadDelayを使うほうがいいそうなんでそうしてみたけど理由はわからん。