練習問題 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

が定義されている．