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

Macgyver :D

Name: Anonymous 2009-10-14 0:22

i just wanna be like him
:)

Name: Anonymous 2009-10-16 19:54

Here's someone else's implementation in Common Lisp:



(defun quicksort (lst)

  (when lst

    (let ((pivot (car lst)))

      (append

       (quicksort (remove-if-not (lambda (x) (<= x pivot)) (cdr lst)))

       (list pivot)

       (quicksort (remove-if-not (lambda (x) (>  x pivot)) (cdr lst)))))))

Newer Posts