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.Random()
  7.  
  8. let main() = 
  9.         let sample = List.init 300 (fun _-> r.Next(System.Int32.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/7GNLXt/prog.fs(10,40): error FS0001: The type 'int' is not compatible with the type 'seq<int>'
stdout
copy 
Standard output is empty
https://ideone.com/S8YKX
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!