PasteRack.org
Paste # 61657
2018-04-08 16:43:14

Fork as a new paste.

Paste viewed 210 times.


Embed:

  1. #lang racket
  2.  
  3. (define ra-sort
  4.   (lambda (numlist)
  5.   (cond
  6.     ((null? numlist) '())
  7.     ((= (car numlist) (apply max numlist))
  8.      (cons (car numlist) (ra-sort (cdr numlist))))
  9.     (else (ra-sort (append (cdr numlist (list (car numlist)))))))))
  10. (define (sort l)
  11.   (reverse (ra-sort l)))
  12. (define l '(9 8 7 6 5 4))
  13. (sort l)

=>

'(4 5 6 7 8 9)