refactor

glguy · Dec 8, 2023 · 5c4aa81 · 5c4aa81
1 parent 4608019
commit 5c4aa81
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/solutions/src/2023/07.hs b/solutions/src/2023/07.hs
@@ -78,10 +78,10 @@ strength1 hand = category hand : map val hand
 strength2 :: String -> [Int]
 strength2 hand =
   maximum
-    [ category (map rpl hand) : map val hand
+    [ category (map rpl hand)
     | alt <- nub hand
     , let rpl x = if x == 'J' then alt else x
-    ]
+    ] : map val hand
   where
     val x = fromJust (x `elemIndex` "J23456789TQKA")