練習問題 2.2.1

アルファベット1文字を引数としてとり,アルファベット列でその文字の直後にある文字を返す関数
nextlet
を定義せよ.ただし,
'A'
'Z'
の直後であると仮定せよ.



ASCIIのアルファベット以外は指定した文字そのものを返すことにする.

import Data.Char

nextlet :: Char -> Char
nextlet 'Z' = 'A'
nextlet 'z' = 'a'
nextlet c
  | isAscii c && isLetter c = chr (ord c  + 1)
  | otherwise               = c