sub r{my$y=shift;@F,$y&&do{local@F[$y-1,-1-$y]=($")x2;&r},@F%2|$y?@F:()}print r 1,1,3..(@F=<>=~/./gs)/2-1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page