Squares Fixed by nn

S=' '
p=S*40
"$System.in\n".eachLine{c=it+S*40
println((0..33).sum{i->(p[i-1,i]-S-S?'|':S)+(p[i]+c[i]-S-S?'_':S)}-~/ *$/)
p=c}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page