2011-10-01から1ヶ月間の記事一覧
GCJJ決勝のB問題を解いてたら解けなくて気づいたらここに辿り着いてたのでメモ。 冪剰余計算 import Data.List bits :: Integer -> [Integer] bits e = reverse $ bits' e where bits' 0 = [] bits' x = (x `mod` 2) : bits' (x `div` 2) binaryMod :: Integ…
GCJJ決勝のB問題を解いてたら解けなくて気づいたらここに辿り着いてたのでメモ。 冪剰余計算 import Data.List bits :: Integer -> [Integer] bits e = reverse $ bits' e where bits' 0 = [] bits' x = (x `mod` 2) : bits' (x `div` 2) binaryMod :: Integ…