Rep-string: Difference between revisions

m
(Add Miranda)
Line 977:
first-half (subs s 0 (/ len 2))
test-group (take-while seq (iterate butlast first-half))
test-reptd (map (comp #(take len (cycle %) cycle) test-group)]
(some #(= (seq s) %) test-reptd)))</syntaxhighlight>
{{out}}
15

edits