DouKaku?

(* bingo定義はhttp://ja.doukaku.org/comment/5033/ *)
let (%%) x y = (x/y*y=x) ;;

let print_bingo arr = 
  let times = Array.length arr in
  let iter last x y f =
    (for i = x to (min last y) do (f i) done) in
  
  let pr = Printf.printf "%3d" in
  let nl = print_newline in
  
  let print_turn n x =
    if (x%%n) then (
      nl(); nl();
      iter times (x+1) (x+n) (pr);
      nl();
    );
  in
  Array.iteri (fun i x -> print_turn 10 i; pr x) arr;;

print_bingo (bingo 35);;