15-2.rkt~

;; The first three lines of this file were inserted by DrRacket. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-intermediate-reader.ss" "lang")((modname 15-2) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f () #f)))
; Exercise 254

; sort-n
; [List-of Number] [Number Number -> Boolean] -> [List-of Number]

(define (insert-into l x) l)
  
(define (sort-n l)
  (cond [(empty? l) l]
        [else (insert-into (sort-n (rest l) (first l)))]))
  
(define (sort l cp)