恥の上塗り……　quicksort x:xs = quicksort [y|y<-xs,y<=x] ++ [x] ++ quicksort [y|y<-xs,x<y]