プログラミングできる人　来て(ヽﾟд)ｸﾚ [無断転載禁止]©2ch.net

[過去ﾛｸﾞ] プログラミングできる人　来て(ヽﾟд)ｸﾚ [無断転載禁止]©2ch.net (1002ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

561: 2016/05/24(火)22:43 ID:V9KACOy5(11/14) AA×

561:  [] 2016/05/24(火) 22:43:01.50 ID:V9KACOy5

ごり押しなら、できた。　これじゃない感じが半端ない。
#!/usr/local/bin/perl
use utf8;
use List::Util;

my @toi=(0..9);
my @data = List::Util::shuffle @toi;

#print"@data\n";
my @data2=($data[0],$data[1],$data[2],$data[3]);
until($hit>=3){
our $hit=0;
our $buro=0;
my $yuza=<stdin>;
my @yuza1=($yuza=~ /(\d)/g);
if(@yuza1[0]==@data2[0]){$hit++;print"$hit:hit";}elsif(@yuza1[0]==@data2[1]){$buro++;print"$buro:buro";}elsif(@yuza1[0]==@data2[2]){$buro++;print"$buro:buro";}
elsif(@yuza1[0]==@data2[3]){$buro++;print"$buro:buro";}else{}

if(@yuza1[1]==@data2[1]){$hit++;print"$hit:hit";}elsif(@yuza1[1]==@data2[0]){$buro++;print"$buro:buro";}elsif(@yuza1[1]==@data2[2]){$buro++;print"$buro:buro";}
elsif(@yuza1[1]==@data2[3]){$buro++;print"$buro:buro";}else{}

if(@yuza1[2]==@data2[2]){$hit++;print"$hit:hit";}elsif(@yuza1[2]==@data2[0]){$buro++;print"$buro:buro";}elsif(@yuza1[2]==@data2[1]){$buro++;print"$buro:buro";}
elsif(@yuza1[2]==@data2[3]){$buro++;print"$buro:buro";}else{}

if(@yuza1[3]==@data2[3]){$hit++;print"$hit:hit";}elsif(@yuza1[3]==@data2[0]){$buro++;print"$buro:buro";}elsif(@yuza1[3]==@data2[1]){$buro++;print"$buro:buro";}
elsif(@yuza1[3]==@data2[2]){$buro++;print"$buro:buro";}else{}

$yuza=0;
@yuza1=0;
}<stdin>;

http://echo.5ch.net/test/read.cgi/gamedev/1460635718/561

上下前次 1-新書関写板覧索設栞歴

あと 441 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.050s