목차
문제 총 10 개
본문내용
cdr ls))))))
9) first-item을 정의하세요 (ls에 있는 첫번째 item만 남기세요)
(define (fi ls) ...)
>(fi '(a b c)) --> a
(define (first-item ls) (car ls))
10) remove-al1을 정의하세요 (ls에 있는 같은 item을 모두 삭제하세요)
(define (ra item ls) ...)
>(ra 'a '(a b a c)) --> (b c)
>(ra 'a '(a b a a)) --> (b)
(define (ra a lat)
(cond
((null? lat) (quote ()))
((eq? (car lat) a) (ra a (cdr lat)))
(else (cons (car lat)
(ra a (cdr lat))))))
9) first-item을 정의하세요 (ls에 있는 첫번째 item만 남기세요)
(define (fi ls) ...)
>(fi '(a b c)) --> a
(define (first-item ls) (car ls))
10) remove-al1을 정의하세요 (ls에 있는 같은 item을 모두 삭제하세요)
(define (ra item ls) ...)
>(ra 'a '(a b a c)) --> (b c)
>(ra 'a '(a b a a)) --> (b)
(define (ra a lat)
(cond
((null? lat) (quote ()))
((eq? (car lat) a) (ra a (cdr lat)))
(else (cons (car lat)
(ra a (cdr lat))))))
소개글