Remove unneeded match

drewolson · Dec 1, 2023 · 2cdc4e4 · 2cdc4e4
1 parent 30896c7
commit 2cdc4e4
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/lib/year2023/day01.ml b/lib/year2023/day01.ml
@@ -17,11 +17,7 @@ let re_b =
  |> Re.compile
 ;;
 
-let replace_word m =
- match Map.find mapping m with
- | Some i -> i
- | _ -> m
-;;
+let replace_word m = Map.find mapping m |> Option.value ~default:m
 
 let to_digit' line =
  let a = Re.Group.get (Re.exec re_f line) 0 |> replace_word in