fork download 
  1. let rec qsort = function | []   -> []
  2.                          | h::t -> qsort (List.filter ((>=) h) t)
  3.                                    @ [h] @
  4.                                    qsort (List.filter ((<) h) t)
  5.  
  6.  
  7. [<EntryPoint>]
  8. let main args = 
  9.         let sample = let r = new System.Random() 
  10.                       in List.init 300 (fun _-> r.Next(System.Int32.MaxValue))
  11.         System.Console.WriteLine(qsort sample) 
  12.         0
Success #stdin #stdout 0.14s 12160KB
comments (?)
stdin 
Standard input is empty
stdout 
[11572992; 13594382; 13687892; ... ]
https://ideone.com/RqoIj
language:
F# (mono 4.1)
created:
14 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!