odz https://blog.hatena.ne.jp/odz/ odz buffer https://odz.hatenablog.com/ Scheme ref:http://d.hatena.ne.jp/fumokmm/20110817/1313590148 こんどは Scheme で。 (use srfi-13) (define (init lst) (cond ((null? lst) (error "init: empty list")) ((null? (cdr lst)) '()) (else (cons (car lst) (init (cdr lst)))))) (define (relative-path-list target base) (cond ((null? base) target) ((null? target)… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fodz.hatenablog.com%2Fentry%2F20110821%2F1313943709" title="フルパスから相対パスを求める - odz buffer" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-08-21 01:21:49 rich https://odz.hatenablog.com/entry/20110821/1313943709 1.0 100%