fork download

copy

let rec qsort = function | []   -> []
                         | h::t -> qsort (List.filter ((>=) t))
                                   @ [h] @
                                   qsort (List.filter ((<) t))
 
let r = new System.Random()
[<EntryPoint>]
let main() = 
        let sample = List.init 300 (fun _-> r.Next(System.Int32.MaxValue))
        System.Console.WriteLine(qsort sample) 

/home/occa6e/prog.fs(2,43): error FS0001: This expression was expected to have type
    'a list    
but here has type
    'b list -> 'b list    

/home/occa6e/prog.fs(4,43): error FS0001: This expression was expected to have type
    'a list    
but here has type
    'b list -> 'b list    

/home/occa6e/prog.fs(8,9): error FS0001: This expression was expected to have type
    string []    
but here has type
    unit    

Standard output is empty