Codeforces Beta Round #64

本番は死にました。

その後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)