Sharkovskii order by youz

(format t"~{~D
~}"(sort(loop while(listen)collect(read))'>
:key(lambda(n)(if(= #1=(logand(- n)n)n)(- n 64)(-(/ n)#1#)))))

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

download

return to the top page