import.ml
textutils.ascii_table
textutils.ascii_table_kernel
textutils.console
1 2 3 4 5 open! Core module Attr = Ansi_kernel.Attr let list_sum l ~f = List.sum (module Int) l ~f let list_max ~f lst = List.fold lst ~init:0 ~f:(fun a b -> max a (f b))
1 2 3 4 5
open! Core module Attr = Ansi_kernel.Attr let list_sum l ~f = List.sum (module Int) l ~f let list_max ~f lst = List.fold lst ~init:0 ~f:(fun a b -> max a (f b))