Repeat a string: Difference between revisions

=={{header|Ada}}==

In [[Ada]] multiplication of an universal integer to string gives the desired result. Here is an example of use:

with Ada.Text_IO; use Ada.Text_IO;

begin

Put_Line (5 * "ha");

Sample output:

<pre>

</pre>

=={{header|C}}==

#include <stdlib.h>

#include <string.h>

int main() {

printf("%s\n", string_repeat(5, "ha"));

=={{header|C++}}==

=={{header|Clojure}}==

=={{header|E}}==

=={{header|Forth}}==

0 dest c!

n 0 ?do src len dest +place loop ;

create test 256 allot

s" ha" test 5 place-n

=={{header|Fortran}}==

=={{header|J}}==

=={{header|Java}}==

=={{header|Logo}}==

if :n = 0 [output :acc]

output (copies :n-1 :thing combine :acc :thing)

or using cascade:

=={{header|OCaml}}==

repeating it more than 0 times results in the concatenation of the string and (n-1) further repeats.

> str_repeat n s = s + (str_repeat (n-1) s) if n>0;

> str_repeat 5 "ha";

"hahahahaha"

=={{header|Python}}==