Pixel Pedals of Tomakomai

北海道苫小牧市出身の初老の日常

型宣言、型クラス、データコンストラクタ、型コンストラクタ、インスタンス

むずい(笑)。とりあえず一通り読まないとわからなさそう。

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。