GHCiやめた記念：qsortをmainでやってみる

import List
main=print a

a=qsort [3,2,1,4,1,2]

qsort [] = []
--qsort (x:xs) = qsort [y|y<-xs,y<x] ++ [x] ++ qsort [y|y<-xs,y>=x]
qsort (x:xs) = qsort l ++ [x] ++ qsort r where (l,r)=partition (< x) xs

結果

*Main> main
[1,1,2,2,3,4]
*Main> 

emacs入れて良かった。