今回はProblem 3を…素因数分解の問題ですね。どこかでunfoldrを使った素因数分解を見た記憶があったので再現(?)してみました。 import Data.List fac x = case [y | y <- [2..x], x `mod` y == 0] of [] -> Nothing [t] -> Just (t, 0) (t:_) -> Just (t, x …