age :: (Int,Int,Int) -> (Int,Int,Int) -> Intage (d, m, y) (d2, m2, y2) | m > m2 = y - y2 | m == m2 && d >= d2 = y - y2 | otherwise = y - y2 - 1
Post a Comment
No comments:
Post a Comment