13 lines
No EOL
230 B
Racket
Executable file
13 lines
No EOL
230 B
Racket
Executable file
#lang racket
|
|
|
|
(define (selection-sort lst) (
|
|
cond
|
|
[(empty? lst) empty]
|
|
[else (cons
|
|
(apply min lst)
|
|
(selection-sort (remove (apply min lst) lst))
|
|
)
|
|
]
|
|
))
|
|
|
|
(selection-sort (list 4 7 4 6 1 5 2 9 7)) |