Ordenar

(require racket/base)
;;Autor: Carlos Delgado
;;Fecha: 11 de Marzo 2019
;;Contrato: sortT: lista-de-numeros -> lista-de-numeros
;;Proposito: Ordenar una lista
;;Pruebas (sortT (list 4 3 2)) -> (list 2 3 4)
(define (sortT l)
  (cond
    [(empty? l) empty]
    [else (aux (sortT (rest l)) (first l))]
    )
  )


;;Condición: l está ordenada
(define (aux l num)
  (cond
    [(empty? l) (list num)]
    [(not (symbol<? num (first l))) (cons num l)]
    [else (cons (first l) (aux (rest l) num))]
    )
  )

;(sortT '(4 5 1 3 2))
(sortT (list 'abc 'dca 'cab 'zab 'wxy))


;;Un estudiante tiene 3 atributos: nombre (simbolo), edad (numero), altura (numero)

;;(menor a mayor) Ordenar por nombre. Otra función para ordenar edad y otra función para ordenar por altura.