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....
Praktikant
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 )))) |