find minimum cyclic parts by kozima

(loop(write-line(set's(read-line))():end(do((i 0))((find(length s)`(,(incf i),(mismatch s s :start1 i)))i))))

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

download

return to the top page