今日はリストを扱うプログラム(2)をさらっと見ました。
やはり驚くべきはクイックソートですね。
qSort :: [Int] -> [Int]これをHug98に読ませ、コマンドラインから実行すると感動します。
qSort [] = []
qSort (x:xs)
= qSort [ y | y <- xs, y <= x ] ++ [x]
++ qSort [ y | y <-xs, y > x ]
テストで入力するリストがどんどん長くなっていきます．．．。
テストで入力するリストがどんどん長くなっていきます．．．。