Gattix/AoC
3
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

minor visuals day2

This commit is contained in:
Gattix 2022-12-02 18:36:00 +01:00
parent 317f01b171
commit 5f2a243e85
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
2022/day02/day02.hs
View File

@ -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