[mmzk] (feat) 2023 Part II matches

MMZK1526 · Mar 5, 2024 · 65b17a7 · 65b17a7
1 parent 54c8667
commit 65b17a7
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/src/Year2023/Solver.hs b/src/Year2023/Solver.hs
@@ -45,11 +45,16 @@ split3M xs
 -- Part II
 
 matches :: String -> ParseTree -> Bool
-matches
-  = undefined
+matches clue (Synonym str)       = clue `elem` synonyms str
+matches clue (Anagram _ str)     = sort clue == sort str
+matches clue (Reversal _ tree)   = matches (reverse clue) tree
+matches clue (Insertion _ t1 t2) = or [ matches c1 t1 && matches c2 t2
+                                      | (c1, c2) <- uninsert clue ]
+matches clue (Charade _ t1 t2)   = or [ matches c1 t1 && matches c2 t2
+                                      | (c1, c2) <- split2 clue ]
 
 evaluate :: Parse -> Int -> [String]
-evaluate 
+evaluate (defs, _, tree) size
   = undefined
 
 ------------------------------------------------------