Tyypillinen kuulaskuri

gistfile1.hs

module Kuukausi where

data Kuukausi = Tammikuu
              | Helmikuu
              | Maaliskuu
              | Huhtikuu
              | Toukokuu
              | Kesäkuu
              | Elokuu
              | Heinäkuu
              | Syyskuu
              | Lokakuu
              | Marraskuu
              | Joulukuu
    deriving (Eq, Show, Enum)

mkKuulaskuri :: Kuukausi
mkKuulaskuri = Tammikuu

moneskoKuu :: Kuukausi -> Int
moneskoKuu = (+ 1) . fromEnum

seuraavaKuu :: Kuukausi -> Kuukausi
seuraavaKuu Joulukuu = Tammikuu
seuraavaKuu k = toEnum . (+ 1) . fromEnum $ k