リストをHTMLに変換
(define (list-to-item l) (if (not (null? l)) (begin (display " <li>") (display (car l)) (display "</li>") (newline) (list-to-item (cdr l))))) (define (list-to-ul l) (begin (display "<ul>") (newline) (list-to-item l) (display "</ul>") (newline))) (define (list-to-ol l) (begin (display "<ol>") (newline) (list-to-item l) (display "</ol>") (newline))) (list-to-ul '("アイテムA" "アイテムB" "アイテムC")) ; => <ul> ; <li>アイテムA</li> ; <li>アイテムB</li> ; <li>アイテムC</li> ; </ul> (list-to-ol '("アイテム1" "アイテム2" "アイテム3")) ; => <ol> ; <li>アイテム1</li> ; <li>アイテム2</li> ; <li>アイテム3</li> ; </ol> ; 以下の形式は未対応 ; (list-to-ul '("アイテムA" '("アイテムB1" "アイテムB2") "アイテムC"))