import Char (isDigit) toHanDigit :: String -> String toHanDigit = toDigit.zenToHan -- 数字以外は無視します。 toDigit :: String -> String toDigit [] = [] toDigit (x:xs) = if isDigit x then x:toDigit xs else toDigit xs zenToHan :: String -> …