main=interact([0..271]&) s&x=do i<-s;x!!i%sum[1|j<-s,elem(abs$i-j)$1:[16..18],x!!j=='*'] '.'%i=show i x%i=[x]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page