2011-03-27 Codeforces Beta Round #64 Programming Algorithm Codeforces 本番は死にました。その後HaskellでAだけ解けてやったーとか言ってるので貼っておきます。 Real World Haskell読み途中。 main = getLine >>= putStrLn . show . solve . (read :: String -> Int) where solve 0 = 1 solve n = (3 ^ (n - 1)) `mod` (10^6 + 3)