fork download

copy

let rec qsort = function | []   -> []
                         | h::t -> qsort [for e in h do if (e <= h) then yield e] 
                                   @ [h] @
				   qsort [for e in h do if (e > h) then yield e] 
 
let r = new System.Randon()
 
let main() = 
	let sample = List.init 300 (fun _-> r.Next(int.MaxValue))
	System.Console.WriteLine(qsort sample)	

/home/48EmhY/prog.fs(4,1): error FS1161: TABs are not allowed in F# code unless the #indent "off" option is used

/home/48EmhY/prog.fs(4,8): warning FS0058: Possible incorrect indentation: this token is offside of context started at position (2:36). Try indenting this token further or using standard formatting conventions.

/home/48EmhY/prog.fs(4,8): warning FS0058: Possible incorrect indentation: this token is offside of context started at position (2:36). Try indenting this token further or using standard formatting conventions.

/home/48EmhY/prog.fs(9,1): error FS1161: TABs are not allowed in F# code unless the #indent "off" option is used

/home/48EmhY/prog.fs(10,1): error FS1161: TABs are not allowed in F# code unless the #indent "off" option is used

/home/48EmhY/prog.fs(10,40): error FS1161: TABs are not allowed in F# code unless the #indent "off" option is used

Standard output is empty