Skip to content

Instantly share code, notes, and snippets.

@olof
Forked from davorb/quicksort.hs
Created March 24, 2012 23:43
qsort1([]) -> [];
qsort1([H|T]) -> qsort1([X||X<-T,X<H])++[H]++qsort1([X||X<-T,X>=H]).
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment