1 files changed, 0 insertions, 5 deletions
diff --git a/2021/13.hs b/2021/13.hs
index 8e6c664..26e7a6d 100644
--- a/2021/13.hs
+++ b/2021/13.hs
@@ -8,11 +8,6 @@ import Input
 import Util
 
 
-uniq :: Eq a => [a] -> [a]
-uniq (x : y : xs) | x == y = uniq (y : xs)
-                  | otherwise = x : uniq (y : xs)
-uniq l = l
-
 generate :: A.Ix i => (i, i) -> (i -> a) -> A.Array i a
 generate bounds f = A.listArray bounds (map f (A.range bounds))