From d83589875d4d16651df0db0f18681500a3196a4b Mon Sep 17 00:00:00 2001
From: Thorn Avery <s@p7.co.nz>
Date: Wed, 2 Dec 2020 20:45:49 +1300
Subject: [PATCH] remembered /= exists

---
 day2.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/day2.hs b/day2.hs
index d9838a3..c67cff2 100644
--- a/day2.hs
+++ b/day2.hs
@@ -26,7 +26,7 @@ validB (Password a' b' t p) =
     (False,False) -> False
     (True,False) -> (p !! a) == t
     (False,True) -> (p !! b) == t
-    _ -> xor ((p !! a) == t) ((p !! b) == t)
+    _ -> ((p !! a) == t) /= ((p !! b) == t)
   where
     a = (pred a')
     b = (pred b')
@@ -53,11 +53,6 @@ dropChar :: String -> String
 dropChar [] = []
 dropChar (_:ls) = ls
 
-xor :: Bool -> Bool -> Bool
-xor True False = True
-xor False True = True
-xor _ _ = False
-
 inBounds :: Int -> Int -> String -> (Bool, Bool)
 inBounds a b s = ( len >= a, len >= b )
   where len = length s