morris555's diary

高校生のブログです。

2012-06-05から1日間の記事一覧

Problem 18

Problem 18です。 import Control.Applicative group _ [] = [] group n xs = let (xs1, xs2) = splitAt n xs in xs1 : group (n+1) xs2 main = do input <- map read <$> (words <$> getContents) :: IO [Int] print . head . foldr1 max' $ group 1 input …