むずい(笑)。とりあえず一通り読まないとわからなさそう。
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] -> Int mySum [] = 0 mySum (m:ms) = myTypeToInt m + mySum ms
今日のところは激眠なのでこれでおやすみなさいZzz。