N:=(stdin next:2)asNumber.[N:=(P:=N printNl)\\2*(N*5/2+1)+(N/2).P>1]whileTrue
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page