ghc/compiler/tests/deSugar/ds004.hs

   1 --!!! ds004 -- nodups from SLPJ p 79
   2 --
   3 module Test where
   4
   5 -- SLPJ, p 79
   6 nodups []                   = []
   7 nodups [x]                  = [x]
   8 nodups (y:x:xs) | y == x    = nodups (x:xs)
   9                 | True      = y : nodups (x:xs)