Sortierfunktion mit anpassbaren Vergleichsfunktion

Question

Nach dem Schreiben:

(define (sort-asc l) 
    (cond ((eq? l '()) '()) 
     ((eq? (cdr l) '()) (list (car l))) 
     ((< (car l) (cadr l)) (cons (car l) (sort-asc (cdr l)))) 
     (else (cons (cadr l) (sort-asc (cons (car l) (cddr l))))))) 

Wie schreiben Sie eine Funktion, die zusätzlich eine Vergleichsfunktion als Parameter nehmen?

Versuchte:

(define (sort-f l f) 
    (cond ((eq? l '()) '()) 
     ((eq? (cdr l) '()) (list (car l))) 
     ((lambda()(f (car l) (cadr l))) (cons (car l) (sort-f (cdr l) f))) 
     (else (cons (cadr l) (sort-f (cons (car l) (cddr l)) f))))) 

Aber (sort-f '(4 3 8 2 5) <) gibt die gleiche Liste. p.s. Gibt es eine Möglichkeit, diesen Code eleganter aussehen zu lassen, indem man alle car 's, cadr' s und cdr 's irgendwie umschreibt?

Answer 1

Ihre dritte cond Verzweigungsbedingung sollte (f (car l) (cadr l)) sein, nicht (lambda() ...). Der lambda-Ausdruck gibt eine Prozedur zurück (die nicht aufgerufen wird), und da alle Prozeduren truthy sind, wird der vierte Zweig (else) nie erreicht.

Das heißt,

((lambda()(f (car l) (cadr l))) (cons (car l) (sort-f (cdr l) f))) 

sollte

((f (car l) (cadr l)) (cons (car l) (sort-f (cdr l) f)))