Problem 193 - Project Euler 平方数で割り切れない2^50以下の数を数える． メビウス関数と包除原理を利用． import Control.Monad.ST (ST,runST) import Control.Monad (when) import Data.Array.ST (STUArray,newArray,readArray,writeArray) p193 :: Inte…

Coloured Configurations Problem 194 - Project Euler 困難は分割せよ．ということで，それぞれのユニットごとの塗り分けパターンを考えてみた． 結果． choose :: (Integral a) => a -> a -> a choose n r = div (product [n-r+1..n]) $ product [1..r] p1…