ビンゴの結果を整形表示 in Other DouKaku?

ビンゴの結果を整形表示

「重複無し乱数」の続編です。

「重複無し乱数」で作ったbingo関数の結果を下のように「何番目の乱数か」とセットにして10個ずつ折り返して表示するコードを書いてください。

>>> bingo(30)
  1  2  3  4  5  6  7  8  9 10
 29 14 16 13 30 15 22 11 25  9

 11 12 13 14 15 16 17 18 19 20
 23  4 18  5 28 17  8 12 21 20

 21 22 23 24 25 26 27 28 29 30
 26  6  2 19  1  7 10 27  3 24

>>> bingo(35)
  1  2  3  4  5  6  7  8  9 10
  7 15  3 32  1 16 17 28  6 29

 11 12 13 14 15 16 17 18 19 20
 19 23 30 26 20  5 12  2 25 31

 21 22 23 24 25 26 27 28 29 30
 35 13 24 18 11  8 10 34 22 21

 31 32 33 34 35
  9  4 27 33 14

post comment

Posted feedbacks - Other

(* 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);;

DouKaku?

ビンゴの結果を整形表示

Posted feedbacks - Other

Index

Feed

Other

Link

Pathtraq