Minesweeper by irori(2hrs)

gets$&
b=273*$_.tr("*.
",'10').hex
$><<gsub('.'){(b<<?\x88)+(b<<68)+b>>$'.size*4>>72&15}

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

download

return top