minesweeper by olf

n=m=readChar("stdin",!!1:9e3)
for(i in 1:NROW(n))n[i]=sum(m[i+c(a<-40:42,-a[i>41],-1:1)]=="*",na.rm=T)
n[n<1]=".";n[-1>m]=m[-1>m]
cat(n,sep="")

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)

download

return to the top page