FRACTRAN fixed by kozima

(dotimes'201(format t"~D
"n)(set'n(do`(q(butlast'#.(loop while(listen)collect(/(set'n(read))(read)))))((integerp(set'x(*(pop q)n)))x))))

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

download

return to the top page