Perlについての質問箱 2箱目
レス数が950を超えています。1000を超えると書き込みができなくなります。
0992デフォルトの名無しさん
NGNG>>990を参考に作ってみた
srand;
@card = (1 .. 36);
$pair = 10;
@result = ();
for($i=0;$i<$pair; $i++){
($p1) = splice(@card,int(rand(@card)),1);
($p2) = splice(@card,int(rand(@card)),1);
push(@result, [$p1,$p2]);
}
foreach $in (@result){
print $in->[0], ":", $in->[1], "\n";
}
一時変数使わないようにしたり、リファレンス止めたり色々出来るけど
分かりやすい基本形って事で
レス数が950を超えています。1000を超えると書き込みができなくなります。