From 1cbf2802f8d196acd5c49b4d933cb94a042adc62 Mon Sep 17 00:00:00 2001 From: VaclavT Date: Sun, 14 Feb 2021 08:56:32 +0100 Subject: [PATCH] quicksort --- stdlib/stdlib.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/stdlib/stdlib.lisp b/stdlib/stdlib.lisp index 149eff4..a9c9b8c 100644 --- a/stdlib/stdlib.lisp +++ b/stdlib/stdlib.lisp @@ -5,9 +5,9 @@ (do (define pivot (first l)) (+ - (qs (filter (lambda (n) (> pivot n)) l)) + (quick-sort (filter (lambda (n) (> pivot n)) l)) (list pivot) - (qs (tail (filter (lambda (n) (<= pivot n)) l))) + (quick-sort (tail (filter (lambda (n) (<= pivot n)) l))) )) ))