a:=list setSize(4e3) for(i,1,3e3,a atPut((b:=i asString)sum-(b size)*48+i,1);a at(i)or i println)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page