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

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Repeat-a-string/AppleScript/repeat-a-string.applescript → Task/Repeat-a-string/AppleScript/repeat-a-string-1.applescript
View file

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

17
Task/Repeat-a-string/AppleScript/repeat-a-string-2.applescript Normal file
View file

@ -0,0 +1,17 @@
on run
nreps("ha", 50000)
end run
-- String -> Int -> String
on nreps(s, n)
set o to ""
if n < 1 then return o
repeat while (n > 1)
if (n mod 2) > 0 then set o to o & s
set n to (n div 2)
set s to (s & s)
end repeat
return o & s
end nreps