31 Jan
2011
31 Jan
'11
5:04 p.m.
On 31 January 2011 21:15, Rainer Grimm
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