vaclavt/mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

quicksort

Browse Source
This commit is contained in:
VaclavT
2021-02-14 08:56:32 +01:00
parent 8f0b19798f
commit 1cbf2802f8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
stdlib/stdlib.lisp
View File

@@ -5,9 +5,9 @@
(do (do
(define pivot (first l)) (define pivot (first l))
(+ (+
(qs (filter (lambda (n) (> pivot n)) l)) (quick-sort (filter (lambda (n) (> pivot n)) l))
(list pivot) (list pivot)
(qs (tail (filter (lambda (n) (<= pivot n)) l))) (quick-sort (tail (filter (lambda (n) (<= pivot n)) l)))
)) ))
)) ))