2010-05-09から1日間の記事一覧
Code Jam Statistics (2010) でみれる.
解いた.とりあえず,問題文に骨が折れる. メモ,メモ. A そのまま. import Control.Monad import Text.Printf light :: (Integral a, Integral b) => b -> a -> String light n k | mod (k+1) (2^n) == 0 = "ON" | otherwise = "OFF" main :: IO () main…