View difference between Paste ID: 4vJX4KBb and kkFc7zks

 ;;Autor: Carlos A Delgado
 ;;Fecha: 5 de Septiembre de 2020
 ;;Contrato: ordenar: lista de numeros -> lista de numeros
 ;;Propósito: Ordenar de menor a mayor un alista de números
 ;;Ejemplos
 ;;(9 8 1 2 0) -> (0 1 2 8 9)
 ;;(-4 5 0 2 3) -> (-4 0 2 3 5)
 (define (ordenar lstnum)
   (cond
     [(empty? lstnum) empty]
     [else (ordenarAux (first lstnum)
             (ordenar (rest lstnum)) )]
     ))
 
 (check-expect (ordenar (list 9 8 1 2 0)) (list 0 1 2 8 9))
 
 ;;Contrato: OrdenarAux: numero, lista de numeros -> lista de numeros
 (define (ordenarAux num lstOrdenada)
   (cond
     [(empty? lstOrdenada) (cons num empty)]
     [(< num (first lstOrdenada)) (cons num lstOrdenada)]
     [else (cons (first lstOrdenada) (ordenarAux num (rest lstOrdenada)))]
     ))
 
 ;;(ordenarAux 5 (cons 1 (cons 4 (cons 6 (cons 7 empty)))))