2022/03/29 #麻雀牌を作ってみる＃２

令和 PowerShell

皆様おはようございます、

#猫でもできるPowerShell（備忘録）

#麻雀牌を作ってみる＃２

$dat=@'
一萬,二萬,三萬,四萬,五萬,六萬,七萬,八萬,九萬
一筒,二筒,三筒,四筒,五筒,六筒,七筒,八筒,九筒
一索,二索,三索,四索,五索,六索,七索,八索,九索
東風,南風,西風,北風,白板,緑発,紅中
'@
$var = $dat.Replace("`r","").split("`n").split(",")

$tiles=@(0..135)                 #配列形式の変数を作る
#  0..135 |%{$pi[$_]=$var[$_ % 34]} #元ネタの値を４回転させて牌データを作る

%{$var} -PipelineVariable v |%{
$i=$var.indexof($_); #$i;   #元ネタ内の添字を取り出す
0..3 |%{$tiles[4 * $i + $_]=$v};
}
$tiles

 

一萬
一萬
一萬
一萬
二萬
二萬
二萬
二萬
三萬
三萬
三萬
：
：
白板
緑発
緑発
緑発
緑発
紅中
紅中
紅中
紅中

昨日作った４回転方式では配牌～並べ替えの時にちょっと面倒になりそうなため、
添字が４つ並んだ単位で牌データを割り当て直しました。
また、$pi は円周率と紛らわしいため $tiles に変更
ではまた；