Sharkovskii order by quijote

(defun s(x y)(cond((= 1 y))((oddp x)(if(oddp y)(< x y)t))((evenp y)(s(/ x 2)(/ y 2)))))(dolist(x(sort(loop while(listen)collect(read))#'s))(princ x)(terpri))

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

download

return to the top page