fork download

copy

let rec qsort = function | []   -> []
                         | h::t -> qsort [for e in h -> if (e <= h) yield e] 
                                   @ [h] @
				   qsort [for e in h -> if (e > h) 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/9axHs0/prog.fs(2,69): error FS0010: Unexpected yield in expression

/home/9axHs0/prog.fs(2,57): error FS0589: Unmatched 'if'

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

/home/9axHs0/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/9axHs0/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/9axHs0/prog.fs(4,40): error FS0010: Unexpected yield in expression

/home/9axHs0/prog.fs(4,29): error FS0589: Unmatched 'if'

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

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

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

Standard output is empty