10 lines
242 B
Text
10 lines
242 B
Text
|
;; Solution from Common Lisp and Racket
|
||
|
|
(define-syntax-rule (set-append! str tail)
|
||
|
|
(set! str (string-append str tail)))
|
||
|
|
|
||
|
|
(define name "Albert") → name
|
||
|
|
|
||
|
|
(set-append! name " de Jeumont-Schneidre")
|
||
|
|
name
|
||
|
|
→ "Albert de Jeumont-Schneidre"
|