スキーム：リスト

Question

から重複した数字を削除し、私は

(define (create-list . e) 
    e) 

指定された引数の数エンからリストを作成するには、このコードを書いたしかし、私はそれは、このブロック自体の中に、リストから任意の重複番号を削除する必要があります。

私は数時間試して検索しましたが、他のブロックに何十行ものコードを入れずに解決策を見つけることはできません。例えば

のは、私の入力は、私は（2 2 3 5 5） 'ではない（2 3 5）と' であることを作成したリストが必要

(create-list . 2 2 3 5 5) 

あるとしましょう...

順数字の大小は関係ありません。

Answer 1

基本的に、あなたのような何かをする必要があります：あなたは、既存の機能を使用できない場合

(define (dedupe e) 
    (if (null? e) '() 
     (cons (car e) (dedupe (filter (lambda (x) (not (equal? x (car e)))) 
            (cdr e)))))) 

：私はこれを行うには本当に単純だが、おそらく非効率的な方法を考えることができ

(define (create-list . e) (dedupe e)) 

を

(define (my-filter pred ls) 
    (cond ((null? ls) '()) 
     ((pred (car ls)) (cons (car ls) (my-filter pred (cdr ls)))) 
     (else (my-filter pred (cdr ls))))) 

Answer 2

最も効率的な（ラーベ：filterのように、あなたは1自分で作ることができますリストを一度rsingする）方法は、リストを要素ごとに通過する関数を定義することです。この関数は、どの要素が既に重複していないリストに入っているかのリストを格納します。

@Tikhon Jelvisに比べてこのソリューションの利点は、リストの要素を重複排除するために順番に並べる必要がないことです。

(define (elem? a l) 
     (cond ((null? l) #f) 
      ((equal? a (car l)) #t) 
      (else (elem? a (cdr l))))) 

私たちは前に見ていない各要素を格納し、リストをトラバースすることができます：

(define (de_dupe l_remaining already_contains) 
    (cond ((null? l_remaining) already_contains) 
     ((elem? (car l_remaining) already_contains) (de_dupe (cdr l_remaining) already_contains)) 
     (else (de_dupe (cdr l_remaining) (cons (car l_remaining) already_contains))))) 

注aがlの要素である場合と言う機能elem、考える

：効率のために、これは逆の順序で要素を返します

Answer 3

これは速いです：

(define (remove-duplicates l) 
    (cond ((null? l) 
     '()) 
     ((member (car l) (cdr l)) 
     (remove-duplicates (cdr l))) 
     (else 
     (cons (car l) (remove-duplicates (cdr l)))))) 

さらに、 mit-schemeは削除複製を提供します。これはあなたが望むものを正確に行います。

Answer 4

(define (delete x) 
(cond 
((null? x) x) 
((= (length x) 1) x) | ((null? (cdr x)) x) 
((= (car x) (cadr x)) (delete (cdr x))) 
(#t (cons (car x) (delete (cdr x)))) 
) 
)