2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Repeat-a-string/AppleScript/repeat-a-string-2.applescript
+++ b/Task/Repeat-a-string/AppleScript/repeat-a-string-2.applescript
@ -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