Skip to content

Instantly share code, notes, and snippets.

@ishankhare07

ishankhare07/qsort.erl

Created November 28, 2017 19:28
Show Gist options
  • Save ishankhare07/ffc0d1dacfcec3c4a057aca22b4c9fe0 to your computer and use it in GitHub Desktop.
Save ishankhare07/ffc0d1dacfcec3c4a057aca22b4c9fe0 to your computer and use it in GitHub Desktop.
Download ZIP
famous quicksort in erlang
Raw
qsort.erl
-module(qsort).
-export([qsort/1]).
qsort([]) -> [];
qsort([H|T]) ->
qsort([X || X <- T, X < H]) ++ [H] ++ qsort([X || X <- T, X > H]).
@ishankhare07
Copy link
Author

running it:

Erlang/OTP 20 [erts-9.0.4] [source] [64-bit] [smp:4:4] [ds:4:4:10] [async-threads:10] [kernel-poll:false]

Eshell V9.0.4  (abort with ^G)
1> c(qsort). 
{ok,qsort}
2> qsort:qsort([1,9,4,2,6,8,3,8,5,7]).
[1,2,3,4,5,6,7,8,9]

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment