Question

code in haskell

Write a function morerecent that takes two dates and returns whichever one is more recent.

morerecent :: (Int, Int, Int) -> (Int, Int, Int) -> (Int, Int, Int)

Answer 1

According to the question here,

We can use this function to find the interval between two dates, which can also show whichever one is more recent.

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c DateInterval)

pRelDate ∷ Stream s m Char => DateTime → ParsecT s st m DateTime
pRelDate date = do
  offs ← try futureDate
     <|> try passDate
     <|> try today
     <|> try tomorrow
     <|> yesterday
  return $ date `addInterval` offs

hope it helps