トリコロール石鍛冶版初手チェック

2012年1月2日 MTG

初手チェック表を作ってみた。
元ネタは某御方のトリコロール石鍛冶です。

http://www16.atpages.jp/library4/cgi-bin/rand.cgi

4《溢れかえる岸辺/Flooded Strand》
4《沸騰する小湖/Scalding Tarn》
1《乾燥台地/Arid Mesa》
4《Tundra》
3《Volcanic Island》
2《Plateau》
1《Karakas》
2《島/Island》
1《平地/Plains》
1《山/Mountain》

3《渋面の溶岩使い/Grim Lavamancer》
4《石鍛冶の神秘家/Stoneforge Mystic》
3《瞬唱の魔道士/Snapcaster Mage》
3《聖トラフトの霊/Geist of Saint Traft》

4《Force of Will》
4《渦まく知識/Brainstorm》
4《剣を鍬に/Swords to Plowshares》
4《稲妻/Lightning Bolt》
2《思案/Ponder》
2《精神を刻む者、ジェイス/Jace, the Mind Sculptor》
2《復讐のアジャニ/Ajani Vengeant》
1《饗宴と飢餓の剣/Sword of Feast and Famine》
1《殴打頭蓋/Batterskull》

毎度のように即席版。
あぁ、ソースが汚い…

#!/usr/bin/perl
use strict;
use warnings;

my @array = ();
my $num = &MakeRand();
push(@array,$num);
while(1){
　my $ng = 0;
　$num = &MakeRand();
　foreach(@array){
　　$ng++ if($_ eq $num);
　}
　if($ng eq 0){
　　push(@array,$num);
　　last if(@array >= 7);
　}
}

my @deck = &ReadList();
=pod
表示のためのなんやかんや
=cut
exit;

sub MakeRand{
　my $rand = int(rand(59));
　return $rand;
}

sub ReadList{
　my @list = ();
　open(FH,"./list.txt") or die;
　while(){
　　chomp($_);
　　push(@list,$_);
　}
　close(FH);
　return @list;
}