Minimum-Sortieren

Aus ProgrammingWiki

Streichen und Minimum

(define numliste '(2 3 5 -1 3 6 11 18 15 0 19 27 -33 -2 55 31 7 39 22 1)) (define streiche-erstes (lambda (el ls) ...)) (define minimum (lambda (ls) ...))

MinSort

Zum Sortieren muss das Minimum an seiner ursprünglichen Stelle gestrichen und der Minumum-sortierten Restliste vorangesellt werden. Da wir dieses Element zum Streichen und Voranstellen zweimal benötigen, soll es lokal an eine Variable gebunden werden. Das entsprechende Sprachelement heißt let.

(define listequal? (lambda (ls1 ls2) (cond [(and (null? ls1) (null? ls2)) #t] [(or (null? ls1) (null? ls2)) #f] [(and (list? (car ls1)) (list? (car ls1))) (and (listequal? (car ls1) (car ls2)) (listequal? (cdr ls1) (cdr ls2)))] [else (and (equal? (car ls1) (car ls2)) (listequal? (cdr ls1) (cdr ls2)))])))

(define minsort (lambda (ls) (if (null? ls) () (let ([el (minimum ls)]) ...))))

(minsort numliste)

ausführen

Die Effizienz von MinSort wollen wir später untersuchen.

Zurück zu Numerischen Listen.