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