2007/07/02
テーマ： モチベーション向上(425)
カテゴリ： コーディング
少しずつ感を取り戻しながら悪戦苦闘しています。今日の結果は下記の記述までですが、
このままでは、同じ数字が２回以上出たときに問題が発生します。
繰り返しの中に、違う数字が出るまで、もしくは同じ数字が出なくなるまでという処理が必要です。
さらには、乱数で得た結果を小さい順に並べ替える処理も必要です。
このプログラムを三連単にも応用できます。配列を１８個、用意して、３回表示させれば良いだけのこと！
@number=(
'01',
'02',
'03',
'05',
'06',
'07',
'08',
'09',
'10',
'11',
'12',
'13',
'14',
'15',
'17',
'18',
'19',
'20',
'21',
'23',
'24',
'25',
'26',
'27',
'28',
'29',
'30',
'31',
'32',
'33',
'34',
'35',
'36',
'37',
'38',
'39',
'40',
'41',
'42',
'43'
);
$iii=0;
srand(time | $$);
while($iii<=5){
@ransu[$iii]=int(rand($#number+1));
$iii++;
}
print "Content-type:text/html\n\n";
print "<<"EOF;
適当な数字によるロト６の買い目！！
$number[$ransu[0]]
$number[$ransu[1]]
$number[$ransu[2]]
$number[$ransu[3]]
$number[$ransu[4]]
$number[$ransu[5]]
EOF
exit;
このままでは、同じ数字が２回以上出たときに問題が発生します。
繰り返しの中に、違う数字が出るまで、もしくは同じ数字が出なくなるまでという処理が必要です。
さらには、乱数で得た結果を小さい順に並べ替える処理も必要です。
このプログラムを三連単にも応用できます。配列を１８個、用意して、３回表示させれば良いだけのこと！
@number=(
'01',
'02',
'03',
'05',
'06',
'07',
'08',
'09',
'10',
'11',
'12',
'13',
'14',
'15',
'17',
'18',
'19',
'20',
'21',
'23',
'24',
'25',
'26',
'27',
'28',
'29',
'30',
'31',
'32',
'33',
'34',
'35',
'36',
'37',
'38',
'39',
'40',
'41',
'42',
'43'
);
$iii=0;
srand(time | $$);
while($iii<=5){
@ransu[$iii]=int(rand($#number+1));
$iii++;
}
print "Content-type:text/html\n\n";
print "<<"EOF;
適当な数字によるロト６の買い目！！
$number[$ransu[0]]
$number[$ransu[1]]
$number[$ransu[2]]
$number[$ransu[3]]
$number[$ransu[4]]
$number[$ransu[5]]
EOF
exit;
お気に入りの記事を「いいね！」で応援しよう
[コーディング] カテゴリの最新記事
-
自宅サーバー２日目 2009/08/27
-
バグを突き止める！ 2009/04/01
-
ＣＧＩ・Perl プログラミング 2007/07/01
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
