ビンゴの結果を整形表示 in PowerShell 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 - PowerShell

PS C:\>  format-bingo(bingo(5))
 1 2 3 4 5
 4 2 1 0 3

function bingo([int] $n)
{
     $r = new-object system.random
     $a = 0..($n-1)
     0..($n-1) | %{ $i = $r.next($n-1); $a[$_],$a[$i] = $a[$i],$a[$_] }
     $a
}

function format-bingo($ary)
{
     $keta = ([string]$ary.length).length + 1
     for ($i = 0; $i -lt $ary.length; $i+=10) {
          $len = $ary[($i)..($i+9)].length + $i
          [string]::join("", (@(($i+1)..$len) | %{"{0,$keta}" -f $_}))
          [string]::join("", ($ary[($i)..($len-1)] | %{"{0,$keta}" -f $_}))
          ""
     }
}

DouKaku?

ビンゴの結果を整形表示

Posted feedbacks - PowerShell

Index

Feed

Other

Link

Pathtraq