minor visuals day2

2022-12-02 18:36:00 +01:00 · 2022-12-02 18:36:00 +01:00 · 5f2a243e85
commit 5f2a243e85
parent 317f01b171
1 changed files with 1 additions and 2 deletions
--- a/2022/day02/day02.hs
+++ b/2022/day02/day02.hs
@ -1,9 +1,8 @@
 data Hand = Rock | Paper | Scissor deriving (Eq,Enum,Bounded,Show)
 instance Ord Hand where
-    compare x y = case fromEnum x - fromEnum y `mod` 3 of
+    compare x y = case (fromEnum x - fromEnum y) `mod` 3 of
                    0 -> EQ
                    1 -> GT
-                    (-2) -> GT
                    _ -> LT

 (+.) :: Hand -> Int -> Hand