find minimum cyclic parts by konn

import List
main@m=do{x<-getLine;putStrLn$head$filter(and.zipWith(==)x.cycle)(tail$inits x);m}

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

download

return to the top page