Rep-string: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,397: / Line 1,397: @@
 repCycles :: String -> [String]
 repCycles cs =
+  filter
-  let n = length cs
+    ((cs ==) . take n . cycle)
-   in filter
-        ((cs ==) . take n . cycle)
+    ((tail . inits) $ take (quot n 2) cs)
+  where
-        (tail $ inits (take (quot n 2) cs))
+    n = length cs
 --------------------------- TEST -------------------------