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

Time for an 2014 update…

Browse source
This commit is contained in:
Ingy döt Net 2014-01-17 05:32:22 +00:00
parent 372c577f83
commit 09687c4926
2520 changed files with 34227 additions and 7318 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Repeat-a-string/Deja-Vu/repeat-a-string.djv Normal file
View file

@ -0,0 +1 @@
!. concat( rep 5 "ha" )

2
Task/Repeat-a-string/Nimrod/repeat-a-string.nimrod Normal file
View file

@ -0,0 +1,2 @@
import strutils
repeatStr(5, "ha")

0
Task/Repeat-a-string/VBA/repeat-a-string.vba → Task/Repeat-a-string/VBA/repeat-a-string-1.vba
View file

3
Task/Repeat-a-string/VBA/repeat-a-string-2.vba Normal file
View file

@ -0,0 +1,3 @@
Public Function RepeatString(stText As String, iQty As Integer) As String
RepeatString = Replace(String(iQty, "x"), "x", stText)
End Function

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

@ -0,0 +1,7 @@
' VBScript has a String() function that can repeat a character a given number of times
' but this only works with single characters (or the 1st char of a string):
WScript.Echo String(10, "123") ' Displays "1111111111"
' To repeat a string of chars, you can use either of the following "hacks"...
WScript.Echo Replace(Space(10), " ", "Ha")
WScript.Echo Replace(String(10, "X"), "X", "Ha")