mgrettondann/ocaml-aoc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge a map/filter Fun.id with filter_map

Browse Source
This commit is contained in:
Matthew Gretton-Dann
2024-12-19 14:48:58 +00:00
parent aaa031e6c6
commit 2c8d0845b4
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/day2407.ml
View File

@@ -35,8 +35,8 @@ let is_valid_target tgt nums ops =
| [] -> List.exists (( = ) 0) tgts | [] -> List.exists (( = ) 0) tgts
| h :: t -> | h :: t ->
impl impl
(List.map (fun tgt -> List.map (fun op -> op tgt h) ops) tgts (List.map (fun tgt -> List.filter_map (fun op -> op tgt h) ops) tgts
|> List.concat |> List.filter_map Fun.id) |> List.concat)
t t
in in
impl [ tgt ] nums impl [ tgt ] nums