Repeat a string: Difference between revisions
Content added Content deleted
(added PowerShell) |
No edit summary |
||
| Line 56: | Line 56: | ||
=={{header|Clojure}}== |
=={{header|Clojure}}== |
||
<lang lisp>(apply str (repeat 5 "ha"))</lang> |
<lang lisp>(apply str (repeat 5 "ha"))</lang> |
||
=={{header|Common Lisp}}== |
|||
<lang lisp> |
|||
(defun repeat-string (n string) |
|||
(if (zerop n) |
|||
"" |
|||
(concatenate 'string string (repeat-string (1- n) string)))) |
|||
(princ (repeat-string 5 "hi")) |
|||
</lang> |
|||
=={{header|E}}== |
=={{header|E}}== |
||