むずい(笑)。とりあえず一通り読まないとわからなさそう。 import Data.Char data MyType = I Int | F Float | C Char myTypeToInt :: MyType -> Int myTypeToInt (I m) = m myTypeToInt (F m) = truncate m myTypeToInt (C m) = ord m mySum :: [MyType] ->…