Build with stack

1 files changed, 0 insertions, 28 deletions

diff --git a/utility.hs b/utility.hs
deleted file mode 100644
index a160cb7..0000000
--- a/utility.hs
+++ /dev/null
@@ -1,28 +0,0 @@
-module Utility where
-
-import Data.List
-
---if any of the predicates returns true, options returns true
-options :: [a -> Bool] -> a -> Bool
-options l x = any id [f x | f <- l]
-
-fixpoint :: (Eq a) => (a -> a) -> a -> a
-fixpoint f x = let fx = f x in if fx == x then x else fixpoint f fx
-
-setcompareBy :: (a -> a -> Bool) -> [a] -> [a] -> Bool
-setcompareBy _ [] [] = True
-setcompareBy _ [] _ = False
-setcompareBy _ _ [] = False
-setcompareBy p a@(x:xs) b = length a == length b && setcompareBy p xs (deleteBy p x b)
-
-deleteIndex :: Int -> [a] -> [a]
-deleteIndex 0 (_:xs) = xs
-deleteIndex i (x:xs) | i > 0 = x : deleteIndex (i-1) xs
-
-fromLeft :: Either a b -> a
-fromLeft (Left a) = a
-fromLeft (Right _) = undefined
-
-fromRight :: Either a b -> b
-fromRight (Left _) = undefined
-fromRight (Right b) = b