MyArray.hs

pairLEQ :: (Ord i) => (i, e) -> (i, e) -> Bool 
pairGT  :: (Ord i) => (i, e) -> (i, e) -> Bool 
pairLEQ (i1, e1) (i2, e2) = i1 <= i2
--pairGT a b = not (pairLEQ a b) 
pairGT a = not . (pairLEQ a) 

-- z wykładu 2

pairQS  :: (Ord i) => [(i, e)] -> [(i, e)]
pairQS [] = []
pairQS (x:xs) = (pairQS (filter (flip pairLEQ x) xs))
  ++ [x]
  ++ (pairQS (filter (flip pairGT x) xs))