17 lines
290 B
AppleScript
17 lines
290 B
AppleScript
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
|