number slide by pooq

n:?read();
s:"";p:1;c:1;for i thru n do(if(p=i)then(f:"
",c:c+1,p:p+c)else f:" ",s:concat(s,string(i),f));print(s);

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

download

return to the top page