練習問題 2.2.2

数字1文字を引数としてとり,それに対応する数値を返す関数
digitval
を定義せよ.



import Data.Char

digitval :: Char -> Int
digitval d
  | isDigit d  = ord d - ord '0'
  | otherwise  = error (show d ++" is not a digit")
Data.Char
モジュールでは
digitToInt
が定義されている.