aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Repeat-a-string/Ada/repeat-a-string.ada
View file

@ -1,7 +0,0 @@
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;

3
Task/Repeat-a-string/AutoIt/repeat-a-string.autoit
View file

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

9
Task/Repeat-a-string/COBOL/repeat-a-string.cobol
View file

@ -1,9 +0,0 @@
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.

4
Task/Repeat-a-string/EasyLang/repeat-a-string.easy
View file

@ -1,7 +1,5 @@
func$ rep s$ n .
for i to n
r$ &= s$
.
for i to n : r$ &= s$
return r$
.
print rep "ha" 5

2
Task/Repeat-a-string/Elena/repeat-a-string.elena
View file

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

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

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

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

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

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

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

5
Task/Repeat-a-string/Euphoria/repeat-a-string-1.ex
View file

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

3
Task/Repeat-a-string/Euphoria/repeat-a-string-2.ex
View file

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

9
Task/Repeat-a-string/Euphoria/repeat-a-string-3.ex
View file

@ -1,9 +0,0 @@
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}

4
Task/Repeat-a-string/Euphoria/repeat-a-string-4.ex
View file

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

7
Task/Repeat-a-string/Euphoria/repeat-a-string-5.ex
View file

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

1
Task/Repeat-a-string/PowerShell/repeat-a-string.psh
View file

@ -1 +0,0 @@
"ha" * 5 # ==> "hahahahaha"

12
Task/Repeat-a-string/QBasic/repeat-a-string.basic
View file

@ -1,12 +0,0 @@
FUNCTION StringRepeat$ (s$, n)
cad$ = ""
FOR i = 1 TO n
cad$ = cad$ + s$
NEXT i
StringRepeat$ = cad$
END FUNCTION
PRINT StringRepeat$("rosetta", 1)
PRINT StringRepeat$("ha", 5)
PRINT StringRepeat$("*", 5)
END

1
Task/Repeat-a-string/REBOL/repeat-a-string.rebol
View file

@ -1 +0,0 @@
head insert/dup "" "ha" 5

1
Task/Repeat-a-string/ReScript/repeat-a-string.re
View file

@ -1 +0,0 @@
Js.log(Js.String2.repeat("ha", 5))

1
Task/Repeat-a-string/VBScript/repeat-a-string.vb
View file

@ -1 +0,0 @@
replace(string(5,"@"),"@","hello")