七行プログラミング
>>852
ヘタレなので20byte縮めるのがやっとです。
sub v{substr$b,$v=$_[0],1}sub u{substr$b,$_[0],1,$_[1]}$y=$c=0;$l=12;$k=19;@n=(
-1,11,-11,1,1,-11);$o='#'x10 ."\n";$m='.'x8;$b=$o.("#$m#\n"x8).$o;while(){u$l,
'P';u$k,'E';print"${b}YOU:$y\nCOM:$c\n";exit if$l==$k||$b!~/\./;u$l,' ';$m=<>%5
||exit;$l=$v if'#'ne v$l+$n[$m-1];$y++if'.'eq v$l;u$k,' ';$l==$k&&next;$c++if v
((int rand 4)<3&&('.'eq v$k-1or'.'eq v$k+1or'.'eq v$k-11or'.'eq v$k+11)?($k=$v)
:($k+=v($k+($d=$n[int rand 6]))eq'#'?-$d:$d))eq'.'}
2行目勿体ない。
ヘタレなので20byte縮めるのがやっとです。
sub v{substr$b,$v=$_[0],1}sub u{substr$b,$_[0],1,$_[1]}$y=$c=0;$l=12;$k=19;@n=(
-1,11,-11,1,1,-11);$o='#'x10 ."\n";$m='.'x8;$b=$o.("#$m#\n"x8).$o;while(){u$l,
'P';u$k,'E';print"${b}YOU:$y\nCOM:$c\n";exit if$l==$k||$b!~/\./;u$l,' ';$m=<>%5
||exit;$l=$v if'#'ne v$l+$n[$m-1];$y++if'.'eq v$l;u$k,' ';$l==$k&&next;$c++if v
((int rand 4)<3&&('.'eq v$k-1or'.'eq v$k+1or'.'eq v$k-11or'.'eq v$k+11)?($k=$v)
:($k+=v($k+($d=$n[int rand 6]))eq'#'?-$d:$d))eq'.'}
2行目勿体ない。
|
|
|