穴日記

どうだ明るくなったろう

2011-03-31から1日間の記事一覧

OCamlでクイックソートの末尾再帰

http://d.hatena.ne.jp/maoe/20060130 というCPS変換を使ったSchemeによるクイックソートの末尾再帰実装を見つけたので、OCamlで再実装してみました。 let rec qsort lst cont = match lst with | [] -> cont [] | x::xs -> let left = filter (fun a -> a <…