取りあえずソースだけ <p id=out></p> <script type="application/jscheme"> (define (sxml->xml sxml) (define (make-attr l ac) (if (null? l) ac (make-attr (cdr l) (string-append ac " " (symbol->string (caar l)) "=\"" (cadar l) "\"")))) (define (make-xml x bef aft) (cond ((string? x) …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。