Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Quicksort vs Mergesort

Name: Anonymous 2021-04-25 13:19

Discuss

Name: Anonymous 2021-04-27 6:31

(define (quicksort lst)
  (if (null? lst)
      '()
      (let ((p (car lst)))
        (append (quicksort (filter (lambda (x) (> p x)) (cdr lst)))
                (list p)
                (quicksort (filter (lambda (x) (< p x)) (cdr lst)))))))

Newer Posts