Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeList/Minimum.hs
module Prelude where minimum :: (Ord a) => [a] -> a minimum [] = error "PreludeList.minimum: empty list" minimum xs = foldl1 min xs
