Data commit

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