Skip to content

Instantly share code, notes, and snippets.

@mxrnx

mxrnx/quicksort.arc

Created December 3, 2020 10:10
Show Gist options
  • Save mxrnx/301229cf5c339a3dc9bedbeddf389acb to your computer and use it in GitHub Desktop.
Save mxrnx/301229cf5c339a3dc9bedbeddf389acb to your computer and use it in GitHub Desktop.
Download ZIP
quicksort in Arc
Raw
quicksort.arc
(def qs (seq)
(if (empty seq) nil
(let pivot (car seq)
(join (qs (keep [< _ pivot] (cdr seq)))
(list pivot)
(qs (keep [>= _ pivot] (cdr seq)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment