Refactors 022 with sum & mapi ~f:(name_score)

src/022/p022.ml

@@ -10,18 +10,20 @@ let load_names =
   |> String.split ~on:',' 
   |> List.sort ~compare:(Stdlib.compare)
 
+let sum = List.fold ~f:(+) ~init:(0)
+
 let name_score index name = 
   let char_val c = Char.to_int c - 64 in
   name
   |> Bytes.of_string
   |> Bytes.to_list
   |> List.map ~f:(fun c -> (index + 1) * char_val c)
-  |> List.fold ~f:(+) ~init:(0)
+  |> sum
 
 let solve = 
   load_names
-  |> List.mapi ~f:(fun i s -> name_score i s)
-  |> List.fold ~f:(+) ~init:(0)
+  |> List.mapi ~f:(name_score)
+  |> sum
 
 let () =
   printf "%i\n" solve;;