Data commit

Task/Repeat-a-string/00-META.yaml

@@ -0,0 +1,3 @@
+---
+from: http://rosettacode.org/wiki/Repeat_a_string
+note: String manipulation

Task/Repeat-a-string/00-TASK.txt

@@ -0,0 +1,10 @@
+Take a string and repeat it some number of times.  
+
+Example: repeat("ha", 5)   =>   "hahahahaha"
+
+If there is a simpler/more efficient way to repeat a single “character” (i.e. creating a string filled with a certain character), you might want to show that as well (i.e. repeat-char("*", 5) => "*****").
+
+
+{{Template:Strings}}
+<br><br>
+

Task/Repeat-a-string/11l/repeat-a-string.11l

@@ -0,0 +1 @@
+print(‘ha’ * 5)

Task/Repeat-a-string/360-Assembly/repeat-a-string.360

@@ -0,0 +1,43 @@
+*        Repeat a string           - 19/04/2020
+REPEATS  CSECT
+         USING  REPEATS,R13        base register
+         B      72(R15)            skip savearea
+         DC     17F'0'             savearea
+         SAVE   (14,12)            save previous context
+         ST     R13,4(R15)         link backward
+         ST     R15,8(R13)         link forward
+         LR     R13,R15            set addressability
+         XPRNT  C24,24             print c24
+         LA     R1,PARMLST         pg=repeat(cx,ii) - repeat('abc ',6)
+         BAL    R14,REPEAT         call repeat
+         XPRNT  PG,L'PG            print pg
+         L      R13,4(0,R13)       restore previous savearea pointer
+         RETURN (14,12),RC=0       restore registers from calling save
+REPEAT   CNOP   0,4                procedure repeat(b,a,i)
+         STM    R2,R8,REPEATSA     save registers
+         L      R2,0(R1)           @b=%r1
+         L      R3,4(R1)           @a=%(r1+4)
+         L      R4,8(R1)           @i=%(r1+8)
+         LR     R5,R3              length(a) before a
+         SH     R5,=H'2'           @lengh(a)
+         LH     R6,0(R5)           l=length(a)
+         LR     R7,R6              l
+         BCTR   R7,0               l-1
+         L      R8,0(R4)           i=%r4
+         LTR    R8,R8              if i<=0
+         BNP    RET                then return
+LOOP     EX     R7,MVCX            move a to b len R6
+         AR     R2,R6              @b+=l
+         BCT    R8,LOOP            loop i times
+RET      LM     R2,R8,REPEATSA     restore registers
+         BR     R14                return
+PARMLST  DC     A(PG,CX,II)        parmlist
+REPEATSA DS     7F                 local savearea
+MVCX     MVC    0(0,R2),0(R3)      move @ R3 to @ R2
+C24      DC     6C'xyz '           constant repeat - repeat('xyz ',6)
+LCX      DC     AL2(L'CX)          lengh(cc)
+CX       DC     CL4'abc '          cx
+II       DC     F'6'               ii
+PG       DC     CL80' '            pg
+         REGEQU
+         END    REPEATS

Task/Repeat-a-string/4DOS-Batch/repeat-a-string.4dos

@@ -0,0 +1,10 @@
+gosub repeat ha 5
+echo %@repeat[*,5]
+quit
+
+:Repeat [String Times]
+    do %Times%
+        echos %String%
+    enddo
+    echo.
+return

Task/Repeat-a-string/6502-Assembly/repeat-a-string.6502

@@ -0,0 +1,43 @@
+CHROUT equ $FFD2    ;KERNAL call, prints the accumulator to the screen as an ascii value.
+
+	org $0801		
+
+
+	db $0E,$08,$0A,$00,$9E,$20,$28,$32,$30,$36,$34,$29,$00,$00,$00
+
+
+
+	
+	lda #>TestStr
+	sta $11
+	
+	lda #<TestStr	
+	sta $10
+
+	
+	ldx #5				;number of times to repeat
+
+loop:	
+	jsr PrintString
+	dex
+	bne loop
+	
+
+	RTS					;RETURN TO BASIC
+	
+	
+PrintString:
+	ldy #0				
+loop_PrintString:
+	lda ($10),y			;this doesn't actually increment the pointer itself, so we don't need to back it up.
+	beq donePrinting	
+	jsr CHROUT	
+	iny
+	jmp loop_PrintString	
+donePrinting:
+	rts					
+	
+		
+	
+TestStr:				
+	db "HA",0

Task/Repeat-a-string/68000-Assembly/repeat-a-string.68000

@@ -0,0 +1,12 @@
+MOVE.W #5-1,D1
+RepString:
+LEA A3, MyString
+MOVE.L A3,-(SP) ;PUSH A3
+JSR PrintString ;unimplemented hardware-dependent printing routine, assumed to not clobber D1
+MOVE.L (SP)+,A3 ;POP A3
+DBRA D1,RepString
+RTS             ;return to basic or whatever
+
+MyString:
+DC.B "ha",0
+even

Task/Repeat-a-string/8th/repeat-a-string.8th

@@ -0,0 +1,2 @@
+"ha" 5 s:*
+. cr

Task/Repeat-a-string/ABAP/repeat-a-string.abap

@@ -0,0 +1,3 @@
+report z_repeat_string.
+
+write repeat( val = `ha`  occ = 5 ).

Task/Repeat-a-string/ALGOL-68/repeat-a-string.alg

@@ -0,0 +1 @@
+print (5 * "ha")

Task/Repeat-a-string/APL/repeat-a-string-1.apl

@@ -0,0 +1,2 @@
+      10⍴'ha'
+hahahahaha

Task/Repeat-a-string/APL/repeat-a-string-2.apl

@@ -0,0 +1,3 @@
+      REPEAT←{(⍺×⍴⍵)⍴⍵}
+      5 REPEAT 'ha'
+hahahahaha

Task/Repeat-a-string/AWK/repeat-a-string.awk

@@ -0,0 +1,10 @@
+function repeat( str, n,    rep, i )
+{
+    for( ; i<n; i++ )
+        rep = rep str
+    return rep
+}
+
+BEGIN {
+    print repeat( "ha", 5 )
+}

Task/Repeat-a-string/Action-/repeat-a-string.action

@@ -0,0 +1,11 @@
+Proc Main()
+ byte REPEAT
+
+ REPEAT=5
+  Do
+   Print("ha")
+   REPEAT==-1
+   Until REPEAT=0
+  Do
+
+Return

Task/Repeat-a-string/ActionScript/repeat-a-string-1.as

@@ -0,0 +1,7 @@
+function repeatString(string:String, numTimes:uint):String
+{
+	var output:String = "";
+	for(var i:uint = 0; i < numTimes; i++)
+		output += string;
+	return output;
+}

Task/Repeat-a-string/ActionScript/repeat-a-string-2.as

@@ -0,0 +1,7 @@
+function repeatRecursive(string:String, numTimes:uint):String
+{
+	if(numTimes == 0) return "";
+	if(numTimes & 1) return string + repeatRecursive(string, numTimes - 1);
+	var tmp:String = repeatRecursive(string, numTimes/2);
+	return tmp + tmp;
+}

Task/Repeat-a-string/ActionScript/repeat-a-string-3.as

@@ -0,0 +1,2 @@
+import mx.utils.StringUtil;
+trace(StringUtil.repeat("ha", 5));

Task/Repeat-a-string/Ada/repeat-a-string.ada

@@ -0,0 +1,7 @@
+with Ada.Strings.Fixed;  use Ada.Strings.Fixed;
+with Ada.Text_IO;        use Ada.Text_IO;
+
+procedure String_Multiplication is
+begin
+   Put_Line (5 * "ha");
+end String_Multiplication;

Task/Repeat-a-string/Aime/repeat-a-string.aime

@@ -0,0 +1 @@
+call_n(5, o_text, "ha");

Task/Repeat-a-string/Amazing-Hopper/repeat-a-string.hopper

@@ -0,0 +1,7 @@
+#!/usr/bin/hopper
+#include <hopper.h>
+
+main:
+  {"ha"}replyby(5),    println
+  {"ha",5}replicate,   println
+{0}return

Task/Repeat-a-string/AppleScript/repeat-a-string-1.applescript

@@ -0,0 +1,5 @@
+set str to "ha"
+set final_string to ""
+repeat 5 times
+    set final_string to final_string & str
+end repeat

Task/Repeat-a-string/AppleScript/repeat-a-string-2.applescript

@@ -0,0 +1,20 @@
+replicate(5000, "ha")
+
+-- Repetition by 'Egyptian multiplication' -
+-- progressively doubling a list, appending
+-- stages of doubling to an accumulator where needed for
+-- binary assembly of a target length.
+
+-- replicate :: Int -> String -> String
+on replicate(n, s)
+    set out to ""
+    if n < 1 then return out
+    set dbl to s
+
+    repeat while (n > 1)
+        if (n mod 2) > 0 then set out to out & dbl
+        set n to (n div 2)
+        set dbl to (dbl & dbl)
+    end repeat
+    return out & dbl
+end replicate

Task/Repeat-a-string/Applesoft-BASIC/repeat-a-string.basic

@@ -0,0 +1,3 @@
+FOR I = 1 TO 5 : S$ = S$ + "HA" : NEXT
+
+? "X" SPC(20) "X"

Task/Repeat-a-string/Arturo/repeat-a-string.arturo

@@ -0,0 +1 @@
+print repeat "ha" 5

Task/Repeat-a-string/AutoHotkey/repeat-a-string.ahk

@@ -0,0 +1,8 @@
+MsgBox % Repeat("ha",5)
+
+Repeat(String,Times)
+{
+  Loop, %Times%
+    Output .= String
+  Return Output
+}

Task/Repeat-a-string/AutoIt/repeat-a-string.autoit

@@ -0,0 +1,3 @@
+#include <String.au3>
+
+ConsoleWrite(_StringRepeat("ha", 5) & @CRLF)

Task/Repeat-a-string/BASIC256/repeat-a-string.basic

@@ -0,0 +1,12 @@
+function StringRepeat$ (s$, n)
+	cad$ = ""
+	for i = 1 to n
+		cad$ += s$
+	next i
+	return cad$
+end function
+
+print StringRepeat$("rosetta", 1)
+print StringRepeat$("ha", 5)
+print StringRepeat$("*", 5)
+end

Task/Repeat-a-string/BBC-BASIC/repeat-a-string.basic

@@ -0,0 +1 @@
+      PRINT STRING$(5, "ha")

Task/Repeat-a-string/BQN/repeat-a-string-1.bqn

@@ -0,0 +1,3 @@
+Repeat ← ×⟜≠ ⥊ ⊢
+
+•Show 5 Repeat "Hello"

Task/Repeat-a-string/BQN/repeat-a-string-2.bqn

@@ -0,0 +1 @@
+"HelloHelloHelloHelloHello"

Task/Repeat-a-string/BaCon/repeat-a-string-1.bacon

@@ -0,0 +1,4 @@
+DOTIMES 5
+    s$ = s$ & "ha"
+DONE
+PRINT s$

Task/Repeat-a-string/BaCon/repeat-a-string-2.bacon

@@ -0,0 +1 @@
+PRINT FILL$(5, ASC("x"))

Task/Repeat-a-string/Babel/repeat-a-string-1.pb

@@ -0,0 +1,3 @@
+main: { "ha" 5 print_repeat }
+
+print_repeat!: { <- { dup << } -> times }

Task/Repeat-a-string/Babel/repeat-a-string-2.pb

@@ -0,0 +1 @@
+hahahahaha

Task/Repeat-a-string/Batch-File/repeat-a-string-1.bat

@@ -0,0 +1,8 @@
+@echo off
+if "%2" equ "" goto fail
+setlocal enabledelayedexpansion
+set char=%1
+set num=%2
+for /l %%i in (1,1,%num%) do set res=!res!%char%
+echo %res%
+:fail

Task/Repeat-a-string/Batch-File/repeat-a-string-2.bat

@@ -0,0 +1,10 @@
+@echo off
+set /p a=Enter string to repeat :
+set /p b=Enter how many times to repeat :
+set "c=1"
+set "d=%b%"
+:a
+echo %a%
+set "c=%c%+=1"
+if /i _"%c%"==_"%d%" (exit /b)
+goto :a

Task/Repeat-a-string/Batch-File/repeat-a-string-3.bat

@@ -0,0 +1,13 @@
+@echo off
+@FOR /L %%i in (0,1,9) DO @CALL :REPEAT %%i
+@echo That's it!
+@FOR /L %%i in (0,1,9) DO @CALL :REPEAT %%i
+@echo.
+@echo And that!
+@GOTO END
+
+:REPEAT
+@echo|set /p="*"
+@GOTO:EOF
+
+:END

Task/Repeat-a-string/Beef/repeat-a-string-1.beef

@@ -0,0 +1,2 @@
+String s = new String('X', 5);
+s.Replace("X", "ha");

Task/Repeat-a-string/Beef/repeat-a-string-2.beef

@@ -0,0 +1,2 @@
+String s1 = scope .();
+s1.PadLeft(5, '*');

Task/Repeat-a-string/Beeswax/repeat-a-string.beeswax

@@ -0,0 +1,3 @@
+          p    <
+      p0~1<}~< d@<
+_VT@1~>yg~9PKd@M'd;

Task/Repeat-a-string/Befunge/repeat-a-string.bf

@@ -0,0 +1,4 @@
+v>                ">:#,_v
+>29*+00p>~:"0"-    #v_v $
+ v      ^p0p00:-1g00< $            >
+ v    p00&p0-1g00+4*65< >00g1-:00p#^_@

Task/Repeat-a-string/Bracmat/repeat-a-string.bracmat

@@ -0,0 +1,8 @@
+(repeat=
+  string N rep
+.   !arg:(?string.?N)
+  & !string:?rep
+  &   whl
+    ' (!N+-1:>0:?N&!string !rep:?rep)
+  & str$!rep
+);

Task/Repeat-a-string/Brainf---/repeat-a-string.bf

@@ -0,0 +1,9 @@
++++++ +++++	init first as 10 counter
+[-> +++++ +++++<] we add 10 to second each loopround
+
+		Now we want to loop 5 times to follow std
++++++
+[-> ++++ . ----- -- . +++<] print h and a each loop
+
+and a newline because I'm kind and it looks good
++++++ +++++ +++ . --- .

Task/Repeat-a-string/Brat/repeat-a-string.brat

@@ -0,0 +1 @@
+p "ha" * 5  #Prints "hahahahaha"

Task/Repeat-a-string/Burlesque/repeat-a-string.blq

@@ -0,0 +1,4 @@
+blsq ) 'h5?*
+"hhhhh"
+blsq ) "ha"5.*\[
+"hahahahaha"

Task/Repeat-a-string/C++/repeat-a-string-1.cpp

@@ -0,0 +1,15 @@
+#include <string>
+#include <iostream>
+
+std::string repeat( const std::string &word, int times ) {
+   std::string result ;
+   result.reserve(times*word.length()); // avoid repeated reallocation
+   for ( int a = 0 ; a < times ; a++ )
+      result += word ;
+   return result ;
+}
+
+int main( ) {
+   std::cout << repeat( "Ha" , 5 ) << std::endl ;
+   return 0 ;
+}

Task/Repeat-a-string/C++/repeat-a-string-2.cpp

@@ -0,0 +1,7 @@
+#include <string>
+#include <iostream>
+
+int main( ) {
+   std::cout << std::string( 5, '*' ) << std::endl ;
+   return 0 ;
+}

Task/Repeat-a-string/C++/repeat-a-string-3.cpp

@@ -0,0 +1,16 @@
+#include <string>
+#include <iostream>
+
+std::string repeat( const std::string &word, uint times ) {
+  return
+    times == 0 ? "" :
+    times == 1 ? word :
+    times == 2 ? word + word :
+    repeat(repeat(word, times / 2), 2) +
+    repeat(word, times % 2);
+}
+
+int main( ) {
+   std::cout << repeat( "Ha" , 5 ) << std::endl ;
+   return 0 ;
+}

Task/Repeat-a-string/C-sharp/repeat-a-string-1.cs

@@ -0,0 +1 @@
+string s = "".PadLeft(5, 'X').Replace("X", "ha");

Task/Repeat-a-string/C-sharp/repeat-a-string-2.cs

@@ -0,0 +1 @@
+string s = new String('X', 5).Replace("X", "ha");

Task/Repeat-a-string/C-sharp/repeat-a-string-3.cs

@@ -0,0 +1 @@
+string s = String.Join("ha", new string[5 + 1]);

Task/Repeat-a-string/C-sharp/repeat-a-string-4.cs

@@ -0,0 +1 @@
+string s = String.Concat(Enumerable.Repeat("ha", 5));

Task/Repeat-a-string/C-sharp/repeat-a-string-5.cs

@@ -0,0 +1 @@
+string s = "".PadLeft(5, '*');

Task/Repeat-a-string/C-sharp/repeat-a-string-6.cs

@@ -0,0 +1 @@
+string s = new String('*', 5);

Task/Repeat-a-string/C/repeat-a-string-1.c

@@ -0,0 +1,22 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+char * string_repeat( int n, const char * s ) {
+  size_t slen = strlen(s);
+  char * dest = malloc(n*slen+1);
+
+  int i; char * p;
+  for ( i=0, p = dest; i < n; ++i, p += slen ) {
+    memcpy(p, s, slen);
+  }
+  *p = '\0';
+  return dest;
+}
+
+int main() {
+  char * result = string_repeat(5, "ha");
+  puts(result);
+  free(result);
+  return 0;
+}

Task/Repeat-a-string/C/repeat-a-string-2.c

@@ -0,0 +1,13 @@
+...
+char *string_repeat(const char *str, int n)
+{
+   char *pa, *pb;
+   size_t slen = strlen(str);
+   char *dest = malloc(n*slen+1);
+
+   pa = dest + (n-1)*slen;
+   strcpy(pa, str);
+   pb = --pa + slen;
+   while (pa>=dest) *pa-- = *pb--;
+   return dest;
+}

Task/Repeat-a-string/C/repeat-a-string-3.c

@@ -0,0 +1,17 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+char * char_repeat( int n, char c ) {
+  char * dest = malloc(n+1);
+  memset(dest, c, n);
+  dest[n] = '\0';
+  return dest;
+}
+
+int main() {
+  char * result = char_repeat(5, '*');
+  puts(result);
+  free(result);
+  return 0;
+}

Task/Repeat-a-string/COBOL/repeat-a-string.cobol

@@ -0,0 +1,9 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. REPEAT-PROGRAM.
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+77  HAHA         PIC A(10).
+PROCEDURE DIVISION.
+    MOVE ALL 'ha' TO HAHA.
+    DISPLAY HAHA.
+    STOP RUN.

Task/Repeat-a-string/Ceylon/repeat-a-string.ceylon

@@ -0,0 +1,3 @@
+shared void repeatAString() {
+	print("ha".repeat(5));
+}

Task/Repeat-a-string/Clipper/repeat-a-string.clipper

@@ -0,0 +1 @@
+   Replicate( "Ha", 5 )

Task/Repeat-a-string/Clojure/repeat-a-string.clj

@@ -0,0 +1 @@
+(apply str (repeat 5 "ha"))

Task/Repeat-a-string/ColdFusion/repeat-a-string.cfm

@@ -0,0 +1,5 @@
+<cfset word = 'ha'>
+<Cfset n = 5>
+<Cfoutput>
+<Cfloop from="1" to="#n#" index="i">#word#</Cfloop>
+</Cfoutput>

Task/Repeat-a-string/Common-Lisp/repeat-a-string-1.lisp

@@ -0,0 +1,3 @@
+(defun repeat-string (n string)
+  (with-output-to-string (stream)
+    (loop repeat n do (write-string string stream))))

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)

Task/Repeat-a-string/Common-Lisp/repeat-a-string-3.lisp

@@ -0,0 +1,2 @@
+(defun repeat-string (n string)
+  (format nil "~V@{~a~:*~}" n string))

Task/Repeat-a-string/Common-Lisp/repeat-a-string-4.lisp

@@ -0,0 +1 @@
+(princ (repeat-string 5 "hi"))

Task/Repeat-a-string/Common-Lisp/repeat-a-string-5.lisp

@@ -0,0 +1 @@
+(make-string 5 :initial-element #\X)

Task/Repeat-a-string/Crystal/repeat-a-string.crystal

@@ -0,0 +1 @@
+puts "ha" * 5

Task/Repeat-a-string/D/repeat-a-string-1.d

@@ -0,0 +1,5 @@
+import std.stdio, std.array;
+
+void main() {
+    writeln("ha".replicate(5));
+}

Task/Repeat-a-string/D/repeat-a-string-2.d

@@ -0,0 +1,8 @@
+import std.stdio;
+
+void main() {
+    char[] chars;     // create the dynamic array
+    chars.length = 5; // set the length
+    chars[] = '*';    // set all characters in the string to '*'
+    writeln(chars);
+}

Task/Repeat-a-string/DCL/repeat-a-string.dcl

@@ -0,0 +1,2 @@
+$ write sys$output f$fao( "!AS!-!AS!-!AS!-!AS!-!AS", "ha" )
+$ write sys$output f$fao( "!12*d" )

Task/Repeat-a-string/DWScript/repeat-a-string-1.dw

@@ -0,0 +1 @@
+PrintLn( StringOfString('abc',5) );

Task/Repeat-a-string/DWScript/repeat-a-string-2.dw

@@ -0,0 +1 @@
+PrintLn( StringOfChar('a',5) );

Task/Repeat-a-string/Delphi/repeat-a-string-1.delphi

@@ -0,0 +1,9 @@
+function RepeatString(const s: string; count: cardinal): string;
+var
+  i: Integer;
+begin
+  for i := 1 to count do
+    Result := Result + s;
+end;
+
+Writeln(RepeatString('ha',5));

Task/Repeat-a-string/Delphi/repeat-a-string-2.delphi

@@ -0,0 +1 @@
+Writeln( StringOfChar('a',5) );

Task/Repeat-a-string/Delphi/repeat-a-string-3.delphi

@@ -0,0 +1,7 @@
+function RepeatStr(const s: string; i: Cardinal): string;
+begin
+  if i = 0 then
+    result := ''
+  else
+   result := s + RepeatStr(s, i-1)
+end;

Task/Repeat-a-string/Delphi/repeat-a-string-4.delphi

@@ -0,0 +1 @@
+StrUtils.DupeString

Task/Repeat-a-string/Dyalect/repeat-a-string.dyalect

@@ -0,0 +1 @@
+String.Repeat("ha", 5)

Task/Repeat-a-string/E/repeat-a-string.e

@@ -0,0 +1 @@
+"ha" * 5

Task/Repeat-a-string/ECL/repeat-a-string-1.ecl

@@ -0,0 +1,5 @@
+IMPORT STD; //Imports the Standard Library
+
+STRING MyBaseString := 'abc';
+RepeatedString := STD.Str.Repeat(MyBaseString,3);
+RepeatedString;  //returns 'abcabcabc'

Task/Repeat-a-string/ECL/repeat-a-string-2.ecl

@@ -0,0 +1,9 @@
+RepeatString(STRING InStr, INTEGER Cnt) := FUNCTION
+  rec := {STRING Str};
+  ds  := DATASET(Cnt,TRANSFORM(rec,SELF.Str := InStr));
+  res := ITERATE(ds,TRANSFORM(rec,SELF.Str := LEFT.Str + RIGHT.Str));
+  RETURN Res[Cnt].Str;
+END;
+
+RepeatString('ha',3);
+RepeatString('Who',2);

Task/Repeat-a-string/ERRE/repeat-a-string.erre

@@ -0,0 +1,7 @@
+PROCEDURE REPEAT_STRING(S$,N%->REP$)
+   LOCAL I%
+   REP$=""
+   FOR I%=1 TO N% DO
+       REP$=REP$+S$
+   END FOR
+END PROCEDURE

Task/Repeat-a-string/Ecstasy/repeat-a-string.ecstasy

@@ -0,0 +1,2 @@
+String funny = "ha" * 5;
+String stars = '*' * 80;

Task/Repeat-a-string/Egison/repeat-a-string.egison

@@ -0,0 +1 @@
+(S.concat (take 5 (repeat1 "ha")))

Task/Repeat-a-string/Eiffel/repeat-a-string.e

@@ -0,0 +1,6 @@
+ repeat_string(a_string: STRING; times: INTEGER): STRING
+ require
+   times_positive: times > 0
+ do
+   Result := a_string.multiply(times)
+ end

Task/Repeat-a-string/Elena/repeat-a-string.elena

@@ -0,0 +1,8 @@
+import system'routines;
+import extensions;
+import extensions'text;
+
+public program()
+{
+    var s := new Range(0, 5).selectBy:(x => "ha").summarize(new StringWriter())
+}

Task/Repeat-a-string/Elixir/repeat-a-string.elixir

@@ -0,0 +1 @@
+String.duplicate("ha", 5)

Task/Repeat-a-string/Emacs-Lisp/repeat-a-string-1.l

@@ -0,0 +1 @@
+(apply 'concat (make-list 5 "ha"))

Task/Repeat-a-string/Emacs-Lisp/repeat-a-string-2.l

@@ -0,0 +1 @@
+(make-string 5 ?x)

Task/Repeat-a-string/Emacs-Lisp/repeat-a-string-3.l

@@ -0,0 +1,2 @@
+(require 'cl-lib)
+(cl-loop repeat 5 concat "ha")

Task/Repeat-a-string/Erlang/repeat-a-string.erl

@@ -0,0 +1,2 @@
+repeat(X,N) ->
+    lists:flatten(lists:duplicate(N,X)).

Task/Repeat-a-string/Euphoria/repeat-a-string-1.euphoria

@@ -0,0 +1,5 @@
+sequence s = ""
+for i = 1 to 5 do s &= "ha" end for
+puts(1,s)
+
+hahahahaha

Task/Repeat-a-string/Euphoria/repeat-a-string-2.euphoria

@@ -0,0 +1,3 @@
+sequence s = repeat('*',5)
+
+*****

Task/Repeat-a-string/Euphoria/repeat-a-string-3.euphoria

@@ -0,0 +1,9 @@
+include std/console.e -- for display
+include std/sequence.e -- for repeat_pattern
+sequence s = repeat_pattern("ha",5)
+sequence n = repeat_pattern({1,2,3},5)
+display(s)
+display(n)
+
+hahahahaha
+{1,2,3,1,2,3,1,2,3,1,2,3,1,2,3}

Task/Repeat-a-string/Euphoria/repeat-a-string-4.euphoria

@@ -0,0 +1,4 @@
+include std/console.e -- for display
+include std/sequence.e -- for flatten
+sequence s = flatten(repeat("ha",5))
+display(s)

Task/Repeat-a-string/Euphoria/repeat-a-string-5.euphoria

@@ -0,0 +1,7 @@
+{
+ "ha",
+ "ha",
+ "ha",
+ "ha",
+ "ha"
+}

Task/Repeat-a-string/F-Sharp/repeat-a-string-1.fs

@@ -0,0 +1,2 @@
+> String.replicate 5 "ha";;
+val it : string = "hahahahaha"

Task/Repeat-a-string/F-Sharp/repeat-a-string-2.fs

@@ -0,0 +1,2 @@
+> String.Concat( Array.create 5 "ha" );;
+val it : string = "hahahahaha"

Task/Repeat-a-string/Factor/repeat-a-string.factor

@@ -0,0 +1,3 @@
+: repeat-string ( str n -- str' ) swap <repetition> concat ;
+
+"ha" 5 repeat-string print

Task/Repeat-a-string/Forth/repeat-a-string-1.fth

@@ -0,0 +1,6 @@
+: place-n { src len dest n -- }
+  0 dest c!
+  n 0 ?do src len dest +place loop ;
+
+s" ha" pad 5 place-n
+pad count type    \ hahahahaha