fuxino/AdventOfCode2024
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix Day 19, Puzzle 1 solution

Browse Source
This commit is contained in:
daniele 2024-12-21 12:17:12 +01:00
parent 176b562eb4
commit 5390addcff
Signed by: fuxino
GPG Key ID: 981A2B2A3BBF5514
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Day19.hs
View File

@ -13,7 +13,7 @@ getDesignCombinations design towels cur = do
let design' = drop (length towel) design let design' = drop (length towel) design
if null design' if null design'
then return $ drop 1 cur then return $ drop 1 cur ++ "," ++ towel
else getDesignCombinations design' towels (cur ++ "," ++ towel) else getDesignCombinations design' towels (cur ++ "," ++ towel)
isDesignPossible :: String -> [String] -> Bool isDesignPossible :: String -> [String] -> Bool