sshine · July 5, 2014 22:07
diff --git a/minima.hs b/minima.hs
 minima :: Ord a => [a] -> [a]
 minima [] = []
 minima (y:xs) = foldr aux [y] xs 
  where aux x result =
          case x `compare` head result of
            LT -> [x]
            EQ -> x:result
            GT -> result
	minima :: Ord a => [a] -> [a]
	minima [] = []
	minima (y:xs) = foldr aux [y] xs
	where aux x result =
	case x `compare` head result of
	LT -> [x]
	EQ -> x:result
	GT -> result