15 lines
319 B
Markdown
15 lines
319 B
Markdown
|
```
|
||
|
|
% pandoc -t markdown
|
||
|
|
~~~~ { .haskell startFrom="100"}
|
||
|
|
qsort [] = []
|
||
|
|
qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++
|
||
|
|
qsort (filter (>= x) xs)
|
||
|
|
~~~~
|
||
|
|
^D
|
||
|
|
``` {.haskell startFrom="100"}
|
||
|
|
qsort [] = []
|
||
|
|
qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++
|
||
|
|
qsort (filter (>= x) xs)
|
||
|
|
```
|
||
|
|
```
|