All pastes #193127 Raw Edit

Stuff

public text v1 · immutable
·published 2006-10-06 16:17 UTC
rendered paste body
sumaFe :: Fecha -> Int -> Fecha 
sumaFe (Fec f) d = Fec (f+d)

diasEntreFe :: Fecha -> Fecha -> Int
diasEntreFe (Fec f1) (Fec f2) = f2 - f1