ソースコード
perl -e'
$_=eval join".",("<>")x8;
$%=<>;
<>=~y/A-H/1-8/r=~/(.)(.)/;
substr($_,9*~-$2+~-$1,1)=$%;
print'|sed 'N;N;N;N;N;N;N
/0/{
:
s/0\(w*\)wb/0\1bb/
s/bw\(w*\)0/bb\10/
s/\(0.\{7\}\(w.\{7\}\)*\)w\(.\{7\}b\)/\1b\3/
s/\(0.\{8\}\(w.\{8\}\)*\)w\(.\{8\}b\)/\1b\3/
s/\(0.\{9\}\(w.\{9\}\)*\)w\(.\{9\}b\)/\1b\3/
s/\(b.\{7\}\)w\(.\{7\}\(w.\{7\}\)*0\)/\1b\2/
s/\(b.\{8\}\)w\(.\{8\}\(w.\{8\}\)*0\)/\1b\2/
s/\(b.\{9\}\)w\(.\{9\}\(w.\{9\}\)*0\)/\1b\2/
t
s/0/b/
q
}
:0
s/1\(b*\)bw/1\1ww/
s/wb\(b*\)1/ww\11/
s/\(1.\{7\}\(b.\{7\}\)*\)b\(.\{7\}w\)/\1w\3/
s/\(1.\{8\}\(b.\{8\}\)*\)b\(.\{8\}w\)/\1w\3/
s/\(1.\{9\}\(b.\{9\}\)*\)b\(.\{9\}w\)/\1w\3/
s/\(w.\{7\}\)b\(.\{7\}\(b.\{7\}\)*1\)/\1w\2/
s/\(w.\{8\}\)b\(.\{8\}\(b.\{8\}\)*1\)/\1w\2/
s/\(w.\{9\}\)b\(.\{9\}\(b.\{9\}\)*1\)/\1w\2/
t0
s/1/w/
'