Rosetta Code

Repeat a string: Difference between revisions

Page Discussion

Repeat a string (view source)

Revision as of 01:58, 18 December 2009

3 bytes removed ,  14 years ago
→‎{{header|Common Lisp}}: repeated concatenation is likely O(n^2); replaced with string-stream
No edit summary
(→‎{{header|Common Lisp}}: repeated concatenation is likely O(n^2); replaced with string-stream)
Line 58:
 
=={{header|Common Lisp}}==
<lang lisp>(defun repeat-string (n string)
(defun repeat (with-output-to-string (n stringstream)
(loop repeat n do (write-string string stream))))
(if (zerop n)
 
""
(concatenate 'string stringprinc (repeat-string (1-5 n) string))"hi"))</lang>
(princ (repeat-string 5 "hi"))
</lang>
 
=={{header|E}}==
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/130091"