The Modular DocBook Stylesheets | ||
---|---|---|
Prev | DSSSL Library | Next |
(join slist #!optional (space " "))
Given a list of strings and a space string, returns the string that results from joining all the strings in the list together, separated by space.
The list of strings.
The string to place between each member of the list. Defaults to a single space.
Norman Walsh, <norm@berkshire.net>
(define (join slist #!optional (space " ")) ;; Joins a list of strings together (let loop ((l slist) (result "") (count 1)) (if (null? l) result (if (> count 1) (loop (cdr l) (string-append result space (car l)) (+ count 1)) (loop (cdr l) (string-append result (car l)) (+ count 1))))))
Prev | Home | Next |
ipreced | Up | length-string-number-part |
Copyright © 1997, 1998 Norman Walsh