fork download 
  1. let rec qsort = function | []   -> []
  2.                          | h::t -> 
  3.                                let lesser = (List.filter ((>=) h) t)
  4.                                let greater = (List.filter ((<) h) t)
  5.                                qsort lesser @ [h] @ qsort greater 
  6. [<EntryPoint>]
  7. let main args = 
  8.         System.Console.WriteLine(qsort [99..-1..1]) 
  9.         0
Success #stdin #stdout 0.14s 12368KB
comments (?)
stdin 
Standard input is empty
stdout 
[1; 2; 3; ... ]
https://ideone.com/1X2Ff
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!