Repeat a string: Difference between revisions

<lang AppleScript>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

if (n mod 2) > 0 then set out to out & dbl

set dbl to (dbl & dbl)

return out & dbl

end replicate</lang>