La seasonfunción usa funciones algebraicas pero siento que el código es repetitivo. ¿Cómo lo hago lo más corto posible? data Month = Jan | Feb | Mar | Apr | May | June | July | Aug | Sept| Oct | Nov | Dec deriving (Eq,Ord,Show,Read) data Seasons = Spring | Summer | Autumn | Winter deriving...