--2006年本選2問目より module Main (main) where import System import Control.Monad.State main = do (filePath:_) <- getArgs contents <- readFile filePath let (x:y:_) = lines contents in writeFile "output.txt" $ last (evalState (sequence (rep…

--2006年本選3問目より module Main (main) where import System import Data.List (intersperse) main = do (inputFile:_) <- getArgs contents <- readFile inputFile let n = read contents in writeFile "output.txt" $ dump $ sheeds n sheeds :: Int -…

ひさしぶりにHaskellでプログラムを書いた。やっぱり楽しい。ネタはこれ。 http://www.ioi-jp.org/joi/index.html 1問目はアニマックスでガンダム観ながら書いたからか、ダラダラしてる。ブライト(の声の人)死んじゃったんだよなぁ。ご冥福をお祈り致します…