-- user.hs data UserInfo = UserInfo{ userId :: Int , name :: String } deriving(Show) relude> :load user.hs [1 of 1] Compiling Main ( user.hs, interpreted ) Ok, modules loaded: Main. *Main> let user = UserInfo 1 "haru01" *Main> :type userId…

Wild Card sumList(x:xs) = x + sumList(xs) sumList _ = 0 _ がWild Cardパターンマッチングの際には、パターンにもれがないように, 最後にWild Cardを使うのが定番みたい。