| The Modular DocBook Stylesheets | ||
|---|---|---|
| Prev | DSSSL Library | Next |
(copy-string string num)
Copies string num times and returns the result.
(copy-string "x" 3) returns "xxx"
Norman Walsh, <norm@berkshire.net>
(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))))))| Prev | Home | Next |
| constant-list | Up | decrement-list-members |
Copyright © 1997, 1998 Norman Walsh