fork download
copy 
  1. let rec qsort = function | []   -> []
  2.                          | h::t -> qsort [for e in h do if (e <= h) then yield e] 
  3.                                    @ [h] @
  4.                                    qsort [for e in h do if (e > h) then yield e] 
  5.  
  6. let r = new System.Randon()
  7.  
  8. let main() = 
  9.         let sample = List.init 300 (fun _-> r.Next(int.MaxValue))
  10.         System.Console.WriteLine(qsort sample)
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
/home/UFZDab/prog.fs(10,47): error FS1161: TABs are not allowed in F# code unless the #indent "off" option is used
stdout
copy 
Standard output is empty
https://ideone.com/ok3mN
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!