2011-11-10から1日間の記事一覧
二つ前の記事で、 解いたと思っていた問題。 今日通してみると、誤っていることが判明しました。 なので素直に書きなおしてみた。 main = do nab <- getLine let (n:a:b:_) = map read $ words nab print $ length $ filter ((==n-1).f) [(x,y) | x <- [a..n…
二つ前の記事で、 解いたと思っていた問題。 今日通してみると、誤っていることが判明しました。 なので素直に書きなおしてみた。 main = do nab <- getLine let (n:a:b:_) = map read $ words nab print $ length $ filter ((==n-1).f) [(x,y) | x <- [a..n…