FRACTRAN fixed by youz

(let(_ n . p)(rev:drain:read)(n-of 201(= n(*(find[exact:* _ n](pair rev.p /))prn.n))))

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

download

return to the top page