fork download

copy

let rec qsort = function | []   -> []
                         | h::t -> qsort (List.filter ((>=) h) t)
                                   @ [h] @
                                   qsort (List.filter ((<) h) t)
 
 
[<EntryPoint>]
let main args = 
        let sample = "99,98,97,96,95,94,93,92,91,90,89,88,87,86,85,84,83,82,81,80,79,78,77,76,75,74,73,72,71,70,69,68,67,66,65,64,63,62,61,60,59,58,57,56,55,54,53,52,51,50,49,48,47,46,45,44,43,42,41,40,39,38,37,36,35,34,33,32,31,30,29,28,27,26,25,24,23,22,21,20,19,18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0".Split(',').iter(printf "%d;"
 
        System.Console.WriteLine(qsort []) 
        0

/home/BEB9eg/prog.fs(11,9): error FS0597: Successive arguments should be separated by spaces or tupled, and arguments involving function or method applications should be parenthesized

/home/BEB9eg/prog.fs(9,329): error FS0583: Unmatched '('

/home/BEB9eg/prog.fs(12,10): error FS0528: Unexpected end of input

/home/BEB9eg/prog.fs(9,9): error FS0577: No body found for this 'let' or 'do'. The body must be indented to the same column as this line.

/home/BEB9eg/prog.fs(9,9): error FS0588: Block following this 'let' is unfinished. Expect an expression.

/home/BEB9eg/prog.fs(12,10): error FS0528: Unexpected end of input

/home/BEB9eg/prog.fs(8,1): error FS0577: No body found for this 'let' or 'do'. The body must be indented to the same column as this line.

Standard output is empty