31 Jan
2011
31 Jan
'11
10:04 p.m.
On 31 January 2011 21:15, Rainer Grimm <rainer@grimm-jaud.de> wrote:
isTitle word= isFirstUpperCase ( word) && isTailLowerCase ( word ) where isFirstUpperCase= isUpper . head isTailLowerCase= all isLower . tail
One possible improvement is using pattern matching while defining isTitle. isTitle [] = False -- I suppose? isTitle (x:xs) = isUpper x && all isLower xs -- Ozgur