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: http://www.xanxys.net/public/hs2bf_qsort.txt
• 途中過程: http://www.xanxys.net/public/hs2bf_qsort_intermediate.txt

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