Das hinzufügen eines Elements zu einer Liste in Scheme

Ich bin mit R5RS Scheme und ich will einfach nur zu implementieren, die eine Funktion zurückgibt, die den Schnittpunkt von zwei gegebenen Listen, aber ich kann das nicht tun, denn ich kann mich nicht fügen Sie ein element in einer Liste. Hier ist mein code. Wie kann ich es beheben? Ich bin wirklich ein Anfänger in der Schema - dies ist meine erste Arbeit mit Schema.

thx im Voraus..

(define list3 '())
(define (E7 list1 list2)

        (cond
          ((null? list1)
          list3)
          ((member (car list1) list2) (append list3 (list (car list1))))

        )
  (cond
          ((null? list1)
          list3)
          ((not(null? list1)) (E7 (cdr list1) list2)

        )

     )


)
(E7 '(4 5) '(3 4))
Sieht eher aus wie Schema als Lisp.
Scheme ist ein Lisp.

InformationsquelleAutor user272483 | 2010-03-29

  1. 1

    Hier ist eine rekursive version der Kreuzung anstelle der union.

    (define (intersect list1 list2)
  (cond ((null? list1)   list1)
        ((member (car list1) list2)   (cons (car list1) (intersect (cdr list1) list2)))
        (t   (intersect (cdr list1) list2))))

    InformationsquelleAutor tbischel

  2. 0

    Ich glaube, ich sehe dein problem. Es gibt zwei Möglichkeiten zum hinzufügen eines Elements zu einer Liste.

    Der erste Weg wäre eigentlich hinzufügen:

    (define (intersect list1 list2)
  (define newlist list2)
  (do ((iter1 list1 (cdr iter1)))
    (not (null? iter1))
    (if (not (member (car iter1) newlist))
        (set! newlist (cons (car iter1) newlist)))))

    (Sie werden wahrscheinlich haben, um sich die definition von do wenn Sie wirklich wollen, verwenden Sie diese.)

    Können Sie feststellen, dass das ziemlich hässlich. Das ist, weil niemand wirklich tut es auf diese Weise. Stattdessen müssen Sie erkennen, dass der Aufruf einer Funktion erstellt eine neue variable als gut. Versuchen Sie dies:

    (define (intersect list1 list2)
  (cond ((null? list1) list2)
        ((member (car list1) list2) (intersect (cdr list1) list2))
        (else (intersect (cdr list1) (cons (car list1) list2)))))

    Wenn du bist vertraut mit den algorithmen, Sie werden feststellen, dass der code, den ich gerade schrieb ist ziemlich langsam, aber es illustriert den Punkt: in jedem Fall, Sie haben ein wenig Arbeit und dann rufen Sie Ihre Funktion wieder. Wenn Sie Schwierigkeiten haben, zu sehen, warum dies funktioniert, führen Sie diese Funktion, anstatt auf dein Beispiel:

    (define (intersect list1 list2)
  (display list1) (display " ") (display list2) (newline)
  (cond ((null? list1) list2)
        ((member (car list1) list2) (intersect (cdr list1) list2))
        (else (intersect (cdr list1) (cons (car list1) list2)))))
    Dank sehr viel, aber es scheint, Sie haben das erste Vereinigung von zwei Listen, aber ich will, dass der Schnittpunkt von Listen.
    Oh, zu Schießen. Du hast Recht. Diese findet die union. Der Schnittpunkt der Funktion sollte ähnlich sein, obwohl - beginnen Sie einfach mit '() anstelle von liste2 als Ihre Arbeit Liste. (Möglicherweise müssen Sie fügen Sie eine Dritte argument für die Funktion.)

    InformationsquelleAutor Noah Lavine

  3. 0

    Hier einige vereinfachende elisp:

    (defun is (l1 l2)
  (let ((rtn))
    (mapc
      (lambda (e) 
        (if (member e l1)
          (push e rtn)))
      l2)
    rtn))

    Diese verhält sich wie die eingebaute Kreuzung für diese einfachen tests:

    (is '(1 2 5) '(1 4 10 5))  => (5 1)
(intersection '(1 2 5) '(1 4 10 5)) => (5 1)

(is '(1 4 10 5) '(1 2 5)) => (5 1)
(intersection '(1 4 10 5) '(1 2 5)) => (5 1)
    nicht der code ausgeführt. was sollte ich tun, laufen diese in drscheme :s thx btw
    Sorry, keine Ahnung, ich bin nicht vertraut mit drscheme. Wie gesagt, dies ist elisp. Suchen nur in Ihrem code, müssen Sie verwenden "definieren" anstelle von "defun"?
    ja eigentlich defun bei mir nicht funktioniert und ich weiß nicht, wie zu verwenden defun
    Der Beispiel-code ist in Emacs Lisp. Es hat viele Gemeinsamkeiten mit dem Schema, und sieht sehr ähnlich, aber es ist eine andere Sprache.

    InformationsquelleAutor killdash10

  4. 0

    Du bist besser dran mit set-Operationen von srfi-1.

    InformationsquelleAutor Alexey B.

Schreibe einen Kommentar