projects
/
advent-of-code-23.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Simplified data structure.
[advent-of-code-23.git]
/
advent07
/
MainWithCase.hs
diff --git
a/advent07/MainWithCase.hs
b/advent07/MainWithCase.hs
index 36b4cd86a5178b4db55be5da2de60862907cc016..e5a181fd6217a43804e9233f71cdd6eb1c99d7fe 100644
(file)
--- a/
advent07/MainWithCase.hs
+++ b/
advent07/MainWithCase.hs
@@
-40,10
+40,7
@@
enJoker (Hand cards bid) = Hand jCards bid
where jCards = replace Jack Joker cards
replace :: Eq a => a -> a -> [a] -> [a]
where jCards = replace Jack Joker cards
replace :: Eq a => a -> a -> [a] -> [a]
-replace _ _ [] = []
-replace f t (x:xs)
- | x == f = t : replace f t xs
- | otherwise = x : replace f t xs
+replace f t = fmap (\x -> if x == f then t else x)
classify :: Hand -> ClassifiedHand
classify (Hand cards bid) =
classify :: Hand -> ClassifiedHand
classify (Hand cards bid) =