minesweeper by Hydrazer

my@A=([.comb]for lines);
for @A.kv -> \i,\l{for l.kv -> \j,\o {o eq"."&&(my$t;
for -1..1 X -1..1 -> \a,\b {try {$t+=@A[a+i][b+j]eq"*"}}
.join.say for @A

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

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)


return to the top page