Rep-string: Difference between revisions

Content added Content deleted

Inline

@@ Line 385: / Line 385: @@
         ;; Recurse function reducing length of rotation.
         (t (rep-stringv a-str (1- max-rotation)))))
+</lang>
+{{out}}
+<lang lisp>
 (setf test-strings '("1001110011"
                      "1110111011"
@@ Line 402: / Line 404: @@
       collecting (cons item (rep-stringv item)))
 </lang>
-{{out}}
 <pre>
 (("1001110011" . "10011") ("1110111011" . "1110") ("0010010010" . "001")