Você não pode selecionar mais de 25 tópicos
Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
1234567891011121314 |
- (module templates (render-template)
- (import scheme (chicken string))
-
- (define (render-template node)
- (cond
- ((eq? node '()) "")
- ((string? node) node)
- (else
- (let* ([tag (symbol->string (car node))]
- [body (cdr node)])
- (string-append
- "<" tag ">"
- (string-intersperse (map render-template body) "")
- "</" tag ">"))))))
|