nested patterns

mdr · Dec 4, 2024 · 5c6a656 · 5c6a656
1 parent de31c5a
commit 5c6a656
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 7 deletions.
diff --git a/Aoc2024/Day04/Parser.lean b/Aoc2024/Day04/Parser.lean
@@ -4,5 +4,3 @@ import Aoc2024.Utils
 import Std
 
 def parseGrid (s : String) : Grid := s.lines.map (·.toList)
-
--- #guard parseReports exampleInput == Except.ok 42
diff --git a/Aoc2024/Day04/Solve.lean b/Aoc2024/Day04/Solve.lean
@@ -54,11 +54,10 @@ private def slidingGrids (grid : Grid): List Grid :=
 ]
 
 private def is2Mas: Grid -> Bool
-  | [r1, r2, r3] =>
-    let match1 := match r1 with | ['M', _, 'S'] => true | _ => false
-    let match2 := match r2 with | [_, 'A', _] => true | _ => false
-    let match3 := match r3 with | ['M', _, 'S'] => true | _ => false
-    match1 && match2 && match3
+  | [
+      ['M', _, 'S'],
+      [ _, 'A', _],
+      ['M', _, 'S']] => true
   | _ => false
 
 private def rotate90 : Grid -> Grid := flipHorizontal ∘ List.transpose
Original file line number	Diff line number	Diff line change
Expand Up		@@ -4,5 +4,3 @@ import Aoc2024.Utils
		import Std

		def parseGrid (s : String) : Grid := s.lines.map (·.toList)

		-- #guard parseReports exampleInput == Except.ok 42