quick-sort-reverse added

2021-06-08 23:27:46 +02:00
parent 858db14e6d
commit b50e9ba128
3 changed files with 6 additions and 1 deletions
--- a/stdlib/stdlib.lsp
+++ b/stdlib/stdlib.lsp
@@ -134,6 +134,9 @@
 (defun quick-sort (l)
    (quick-sort-by l (lambda (a b) (> a b))))

+(defun quick-sort-reverse (l)
+    (quick-sort-by l (lambda (a b) (> b a))))
+

 (defun start-of-day (datetime) (str-to-date (+ (date-to-str datetime "%Y-%m-%d") " " "00:00:00") "%Y-%m-%d %H:%M:%S"))
 (defun end-of-day (datetime) (str-to-date (+ (date-to-str datetime "%Y-%m-%d") " " "23:59:59") "%Y-%m-%d %H:%M:%S"))