Count diamonds level 2 by *yuko*

do:k=0:for i=0to 450a=b:b=c:c=peek(0):k=k+(b-a-c^.2=8)next:?k/2loop

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

download

return top