14.2 - deriving (Eq,Ord) season :: Month ->...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
--1.2 data Season = Spring | Summer | Autumn | Winter deriving (Eq,Show) data Month = January | February | March | April | May | June | July | August | September | October | November | December
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: deriving (Eq,Ord) season :: Month -> Season season month | month > September = Autumn | month > June = Summer | month > March = Spring | otherwise = Winter...
View Full Document

This note was uploaded on 11/10/2010 for the course CS 332F taught by Professor Russel during the Spring '10 term at California State University Los Angeles .

Ask a homework question - tutors are online