読者です 読者をやめる 読者になる 読者になる

hs2bf - qsort

ようやく数値の計算ができるようになったので、クイックソートを実装してみます。

main=outputStr Halt (qsort "etsb")

qsort []=[]
qsort (x:xs)=qsort (filter (gtByte x) xs)++[x]++qsort (filter (leByte x) xs)

outputStr k []=k
outputStr k (x:xs)=Output x (outputStr k xs)

コンパイルして実行すると

=== test/QuickSort.hs ===
best
28503865233 steps
user:350.23 sys:0.02

に、にひゃくはちじゅうおく・・・orz


いつものようにファイルを置いておきます。

BF処理系のベンチマークに最適!