Sharkovskii order by kozima

(format t"~{~A
~}"(sort(loop while(listen)collect(read))'< :key(lambda(x)(if(= #1=(gcd x 32)x)(- 99 x)(+(/ x 1d9)#1#)))))

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

download

return to the top page