<RefEntry id="copy-string"> <!-- This file is generated automatically from the DSSSL source. --> <!-- Do not edit this file! --> <?html-filename copy-string.html> <RefMeta> <RefEntryTitle>copy-string</RefEntryTitle> <RefMiscInfo Role="file">dblib.dsl</RefMiscInfo> </RefMeta> <RefNameDiv> <RefName>copy-string</RefName> <RefPurpose>Return a string duplicated a specified number of times</RefPurpose> </RefNameDiv> <RefSynopsisDiv><Title>Synopsis</Title> <Synopsis> (copy-string string num) </Synopsis> </RefSynopsisDiv> <RefSect1><Title>Description</Title> <para> Copies <literal>string</literal> <literal>num</literal> times and returns the result.</para> </RefSect1> <RefSect1><Title>Example</Title> <para> (copy-string "x" 3) returns "xxx" </para> </RefSect1> <RefSect1><Title>Author</Title> <para> Norman Walsh, <ndw@nwalsh.com> </para> </RefSect1> <RefSect1><Title>Source Code</Title> <ProgramListing> (define (copy-string string num) ;; Return a string duplicated a specified number of times (if (<= num 0) "" (let loop ((str string) (count (- num 1))) (if (<= count 0) str (loop (string-append str string) (- count 1)))))) </ProgramListing> </RefSect1> </RefEntry>