Quoted
Original von Markus
Also soll man zwei Listen erzeugen, diese soll man sortieren, und dan zusammenfügen. Stellt sich die Frage? Wie sortiere ich denn die beiden Listen? Schließlich soll ich doche ine Prodezur schreiben, UM ZEINE LISTE ZU SORTIEREN....
Date of registration: Oct 12th 2003
Location: früher Bemerode, jetzt List
Occupation: Nix besseres zu tun
![]() |
Source code |
1 2 3 4 5 6 7 8 9 10 |
(define (list-match? x y) (listm x y x)) (define (listm x y l) (if (null? x) #t ;wenn oder sobalt x nil ist gehts (if (null? y) #f ;wenn y nil ist, nicht (auch abbruchbedingung) (if (= (car x) (car y)) ;wenn car x = car y -> (listm (cdr x) (cdr y) l) ;weiter mit nächsten jeweiligen elementen (list-match? l (cdr y)) ;wenn nicht, vom Anfang mit cdr y )))) |