fork download
copy 
  1. -module(prog).
  2. -export([main/0]).
  3.  
  4. bla([A|B]) -> bla([ X || X <- B, X < A]) ++ [A] ++ bla([ X || X <- B, X >= A]);
  5. bla([]) -> [].
  6.  
  7. main() ->
  8.     io:fwrite("~w~n", [bla([5, 8, 12, 20, 13, 5, 9, 4])]),
  9. 	true.
Success #stdin #stdout 0.05s 23464KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[4,5,5,8,9,12,13,20]
https://ideone.com/miMswx
language:
Erlang (erl 21.3.8)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!