Numloop by clock

procedure main()
every x:=n:=1to 999do{t:=50
while x*t>t&x:=(x%2*23*x+x+2)/4&t-:=1
write(50>50-t|"Infinity",", ",n)}
end

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

download

return to the top page