21 lines
468 B
OCaml
21 lines
468 B
OCaml
#load "str.cma" ;;
|
|
|
|
let read_file filename =
|
|
let ch = open_in filename in
|
|
let s = really_input_string ch (in_channel_length ch) in
|
|
close_in ch;
|
|
s
|
|
;;
|
|
|
|
let contents = read_file "inputs/1.txt" ;;
|
|
(* print_endline contents ;; *)
|
|
|
|
let maxcal = Str.split (Str.regexp "\n\n") contents
|
|
|> List.map (String.split_on_char '\n')
|
|
|> List.map (List.map (int_of_string))
|
|
|> List.map (List.fold_left (+) 0)
|
|
|> List.fold_left (max) 0
|
|
;;
|
|
|
|
Printf.printf "%d" maxcal
|