find minimum cyclic parts by tttaki

main=interact$unlines.map(1#).lines
(%)=take
n#x|([1..div(length x)n]>>n%x)/=x=(n+1)#x|1>0=n%x

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

download

return to the top page