examples/clean/qsort.icl


1
2
3
4
5
6
7
8
9
10
11
12

module example

import StdEnv

qsort :: [Int] -> [Int]
qsort [] = []
qsort [p:l] = (qsort [x \\ x<-l | x<p])
              ++[p]
              ++(qsort [x \\ x<-l | x>=p])

Start :: [Int]
Start = qsort [3,5,1,4,2]