Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (8 sloc) 262 Bytes
open Core.Std
(* part 1 *)
let print_median m =
let module C = Counter in
match m with
| C.Median string -> printf "True median:\n %s\n" string
| C.Before_and_after (before, after) ->
printf "Before and after median:\n %s\n %s\n" before after