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