18 Dec
2009
18 Dec
'09
6:01 a.m.
On Fri, 18 Dec 2009 00:17:56 +0100, Daniel Fischer
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)
legalDate (d,m,y) | m `elem` [Apr,Jun,Sep,Nov] = 0 < d && d < 31 | otherwise = 0 < d && d < 32
Regards, Henk-Jan van Tuyl -- http://Van.Tuyl.eu/ http://members.chello.nl/hjgtuyl/tourdemonad.html --