From 88a7bb50033baab3c2d0eed7e4be868e8966300a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Fri, 17 Nov 2023 20:28:44 +0100 Subject: Split to library and executable parts --- src/Util.hs | 37 ------------------------------------- 1 file changed, 37 deletions(-) delete mode 100644 src/Util.hs (limited to 'src/Util.hs') diff --git a/src/Util.hs b/src/Util.hs deleted file mode 100644 index c69adee..0000000 --- a/src/Util.hs +++ /dev/null @@ -1,37 +0,0 @@ -module Util where - -uniq :: Eq a => [a] -> [a] -uniq (x:y:xs) | x == y = uniq (x:xs) - | otherwise = x : uniq (y:xs) -uniq xs = xs - -mergeBy :: (a -> a -> Ordering) -> [a] -> [a] -> [a] -mergeBy cmp (x : xs) (y : ys) = case cmp x y of - LT -> x : mergeBy cmp xs (y : ys) - EQ -> x : y : mergeBy cmp xs ys - GT -> y : mergeBy cmp (x : xs) ys -mergeBy _ xs [] = xs -mergeBy _ [] ys = ys - -mergeUniqBy :: (a -> a -> Ordering) -> [a] -> [a] -> [a] -mergeUniqBy cmp (x : xs) (y : ys) = case cmp x y of - LT -> x : mergeBy cmp xs (y : ys) - EQ -> x : mergeBy cmp xs ys - GT -> y : mergeBy cmp (x : xs) ys -mergeUniqBy _ xs [] = xs -mergeUniqBy _ [] ys = ys - -mergeUniq :: Ord a => [a] -> [a] -> [a] -mergeUniq = mergeUniqBy compare - -diffSorted :: Ord a => [a] -> [a] -> [a] -diffSorted (x:xs) (y:ys) | x < y = x : diffSorted xs (y:ys) - | x > y = diffSorted (x:xs) ys - | otherwise = diffSorted xs (y:ys) -diffSorted xs _ = xs - -intersectsSorted :: Ord a => [a] -> [a] -> Bool -intersectsSorted (x:xs) (y:ys) | x < y = intersectsSorted xs (y:ys) - | x > y = intersectsSorted (x:xs) ys - | otherwise = True -intersectsSorted _ _ = False -- cgit v1.2.3