19 lines
428 B
OCaml
19 lines
428 B
OCaml
let () =
|
|
print_endline "\
|
|
\\documentclass{report}
|
|
\\usepackage{fullpage}
|
|
\\begin{document}
|
|
\\begin{tabular}{ r | *{120}{c} }";
|
|
|
|
List.iter (fun key ->
|
|
Printf.printf " %d" key;
|
|
let vs = List.filter (fun (a,_) -> a = key) data in
|
|
let vs = List.sort compare (List.map snd vs) in
|
|
List.iter (Printf.printf " & %d") vs;
|
|
print_endline " \\\\"
|
|
) keys;
|
|
|
|
print_endline "\
|
|
\\end{tabular}
|
|
\\end{document}"
|