七行プログラミング

6行。粘着でゴメン ヽ(`Д´)ﾉ　ｳﾜｧｧﾝ
でも表示と終了判定のタイミングを変えたので遊びやすくなった。

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;$m="."x8;$b="$o\n".("#$m#\n"x8)."$o\n";while(){u$l
,"P";u$k,"E";print"${b}YOU:$y\nCOM:$c\n";exit if$l==$k or$b!~/\./;u$l," ";$m=<>
%5;exit if!$m;$l=$v if"#"ne v$l+$n[$m-1];$y++if"."eq v$l;u$k," ";next if$l==$k;
if((int rand 4)<3and("."eq v$k-1or"."eq v$k+1or"."eq v$k-11or"."eq v$k+11)){$k=
$v;}else{$d=$n[int rand 6];$k+=v($k+$d)eq"#"?-$d:$d;}$c++if"."eq v$k;}