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