minesweeper by lynn

'.'%n|n>0=show n
c%_=[c]
f x=do i<-[0..818];x!!i%sum[1|d<-[1,40,41,42],j<-[i+d,i-d],j>0,j<819,x!!j=='*']
main=interact f

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