Сортировать функция с настраиваемой функцией Comparision

Question

После написания:

(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))))))) 

Как вы пишете функцию, которая может дополнительно принимать функцию сравнения в качестве параметра?

Пробовал:

(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))))) 

Но (sort-f '(4 3 8 2 5) <) возвращает тот же список. стр. Есть ли способ сделать этот код более элегантным, так как переписывая все car, cadr и cdr?

Answer 1

Ваш третий cond состояние филиала должно быть (f (car l) (cadr l)), а не (lambda() ...). Выражение lambda возвращает процедуру (которая не вызывается), и поскольку все процедуры являются правдивыми, четвертая (else) ветвь никогда не достигается.

То есть,

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

должен быть

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