Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Repeat-a-string/Common-Lisp/repeat-a-string-2.lisp
+++ b/Task/Repeat-a-string/Common-Lisp/repeat-a-string-2.lisp
@ -0,0 +1,9 @@
+(defun repeat-string (n string
+                     &aux
+                     (len (length string))
+                     (result (make-string (* n len)
+                                          :element-type (array-element-type string))))
+  (loop repeat n
+        for i from 0 by len
+        do (setf (subseq result i (+ i len)) string))
+  result)