과제에 대한 숙제

Question

이 하나의 원자 lat 목록을 입력하고 lat 내용이 인 함수 내용을 설계하는 방법. 결과는 '(a b c a b c d d)'(a b c d)입니다.

Answer 1

아래의 절차 content을 통해 필요한 것을 얻을 수 있습니다.

(define (work x y) 
    (if (null? (cdr x)) 
     (if (in? (car x) y) 
      y 
      (cons (car x) y)) 
     (if (in? (car x) y) 
      (work (cdr x) y) 
      (work (cdr x) (cons (car x) y))))) 

(define (in? x y) 
    (if (null? y) 
     #f 
     (if (equal? x (car y)) 
      #t 
      (in? x (cdr y))))) 

(define (content x) (work x (list))) 

절차 content는 매개 변수리스트를 받아 들인다. 목록을 work이라는 다른 프로 시저로 보냅니다. 이 프로시 저는 목록을 처리하고 목록의 항목을 새 목록에 추가합니다 (새 목록에없는 경우). work 절차는 항목이 목록의 구성원인지 확인하는 in이라는 또 다른 절차를 사용합니다.

내 솔루션은 본질적으로 두 가지 하위 문제로 문제를 나누고 원래 문제보다 낮은 추상화 수준에서 작동하는 절차를 사용합니다.

희망이 있습니다.

Answer 2

은 PLT 제도 솔루션입니다 :

(define (is_exists list element) 
(cond 
    [(empty? list) false] 
    [else 
    (cond 
     [(= (first list) element) true] 
     [else (is_exists (rest list) element)])])) 

(define (unique list target) 
    (cond 
    [(empty? list) target] 
    [else 
    (cond 
     [(is_exists target (first list)) (unique (rest list) target)] 
     [else (unique (rest list) (cons (first list) target))])])) 

(define (create_unique list) 
     (unique list empty)) 

을 확인 :

> (define my_list (cons '1 (cons '2 (cons '3 (cons '2 (cons '1 empty)))))) 
> my_list 
(list 1 2 3 2 1) 
> (create_unique my_list) 
(list 3 2 1) 

Answer 3

시작을 단순히 전달 된 목록 (아주 쉽게 할)의 복사본을 생성하는 과정에서 :

 
(define (unique-elements seq) 
    (define (loop ans rest) 
    (cond ((null? rest) ans) 
      (else 
      (loop (cons (car rest) ans) 
       (cdr rest))))) 
    (loop '() seq)) 

출력 목록의 요소가 고유하도록하려면 REST의 헤드가 이미 나와 있으면 CONS를 건너 뛰어야합니다. ANS의 mber. 그래서 우리는 그냥 그렇게 다른 조건을 추가 :

 
;;; Create list containing elements of SEQ, discarding duplicates. 
(define (unique-elements seq) 
    (define (loop ans rest) 
    (cond ((null? rest) ans) 
      ((member (car rest) ans) ; *new* 
      (loop ans (cdr rest))) ; *new* 
      (else 
      (loop (cons (car rest) ans) 
       (cdr rest))))) 
    (loop '() seq)) 

Answer 4

다음 함수는 목록에 취하고 인수가 재귀 사용하고 그것의 고유 한 입력을 새 목록을 반환

(defun uniq (list) 
    (labels ((next (lst new) 
       (if (null lst) 
        new 
        (if (member (car lst) new) 
         (next (cdr lst) new) 
         (next (cdr lst) (cons (car lst) new)))))) 
     (next list()))) 

으로 언급되었다 코멘트에, 커먼 리스프는 이미이 기능을 가지고있다 :

(defun uniq (list) 
    (remove-duplicates list)) 

Answer 5

 
(define (remove-duplicates aloc) 
    (cond 
    ((empty? aloc) '()) 
    (else (cons (first aloc) 
       (remove-duplicates 
       (filter (lambda (x) 
          (cond 
          ((eq? x (first aloc)) #f) 
          (else #t))) 
         (rest aloc))))))) 

Answer 6

어떻게 작은 모델명 : SCH에 대한 emer 스타일,

(define (rember-all a lat) 
    (cond 
    ((null? lat) '()) 
    ((eq? a (car lat)) (rember-all a (cdr lat))) 
    (else (cons (car lat) (rember-all a (cdr lat)))))) 

(define (content lat) 
    (cond 
    ((null? lat) '()) 
    (else (cons (car lat) 
       (content (rember-all (car lat) (cdr lat)))))))