fork download
copy 
  1. let rec qsort = function | []   -> []
  2.                          | h::t -> qsort (List.filter ((>=) h) t)
  3.                                    @ [h] @
  4.                                    qsort (List.filter ((<) h) t)
  5.  
  6. let r = new System.Random()
  7. [<EntryPoint>]
  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/pMLX1Y/prog.fs(8,9): error FS0001: This expression was expected to have type
    string []    
but here has type
    unit
stdout
copy 
Standard output is empty
https://ideone.com/jc7BY
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!