
14 Jun
2009
14 Jun
'09
12:29 p.m.
2009/6/14 Toby Miller
Here's what I came up with. I especially like the 2nd version, even though it's longer, as it seems very declarative.
caps1 s = all (\x -> isUpper (head x)) (words s)
caps2 s = all startsWithUpper (words s) where startsWithUpper w = isUpper (head w)
I'm also fairly new to Haskell, so I would appreciate feedback from the more experienced.
Thanks.
Not that I'm very experienced myself, but I came up with the first idea as well: caps1 = all (isUpper . head) . words -- Deniz Dogan