14 lines
321 B
Markdown
14 lines
321 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)
|
|
```
|
|
````
|