Skip to content

Instantly share code, notes, and snippets.

@FCO

FCO/quicksort.raku

Created August 9, 2023 13:10
Show Gist options
  • Save FCO/45e87c3cff87476174ee6ddd25260043 to your computer and use it in GitHub Desktop.
Save FCO/45e87c3cff87476174ee6ddd25260043 to your computer and use it in GitHub Desktop.
Download ZIP
destructing classify
Raw
quicksort.raku
multi quicksort([]) { Empty }
multi quicksort([$pivot, *@rest]) {
my (:@Less, :@Same, :@More) := @rest.classify(* cmp $pivot);
[ |quicksort(@Less), $pivot, |@Same, |quicksort(@More) ]
}
say quicksort [7, 2, 1, 8, 1, 9, 3]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment