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…