07/11/13 02:27:53
俺初心者で悪いけど、こういうこと？
(define (find-insert lst fnd val)
(define (find-cdr lst f)
(if (equal? (cadr lst) f)
lst
(find-cdr (cdr lst) f)))
(let ((l (find-cdr lst fnd)))
(set! (cdr l) (cons val (cdr l)))))
(define ls '(1 2 3 4 5))
(define x 3)
(find-insert ls x 'a)
(write ls)