Re: [Haskell-beginners] find element of tupels

18 Dec 2009


      Am Freitag 18 Dezember 2009 12:01:53 schrieb Henk-Jan van Tuyl:
...
On Fri, 18 Dec 2009 00:17:56 +0100, Daniel Fischer
 wrote:
...
legalDate (d,Feb,y) = 0 < d && d < (if isLeapYear y then 30 else 29)
This should be:
legalDate (d, Feb, y) = 0 < d && d < (if isLeapYear y then 29 else 28)
No, I test for strict inequality, hence 30 resp. 29.
...
...
legalDate (d,m,y)
| m `elem` [Apr,Jun,Sep,Nov] = 0 < d && d < 31
    | otherwise = 0 < d && d < 32
Regards,
Henk-Jan van Tuyl