| Name binding, Recursion, Iteration, and Continuations - slide 22 : 42 |
(define (string-merge str-list-1 str-list-2)
(cond ((null? str-list-1) (apply string-append str-list-2))
((null? str-list-2) (apply string-append str-list-1))
(else (string-append
(car str-list-1) (car str-list-2)
(string-merge (cdr str-list-1) (cdr str-list-2)))))) An application of string-merge which converts a list of strings to a string with a given separator. |
A tail recursive version of string-merge. |









