/usr/web/sources/contrib/fernan/nhc98/src/prelude/List/InsertBy.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/List/InsertBy.hs


module List where

insertBy                :: (a -> a -> Ordering) -> a -> [a] -> [a]
insertBy cmp x []       =  [x]
insertBy cmp x ys@(y:ys') 
                        =  case cmp x y of
                           GT -> y : insertBy cmp x ys'
                           _  -> x : ys

(Return to Plan 9 Home Page)