From 9411832ddb47e498e32734c19030025aa958e899 Mon Sep 17 00:00:00 2001 From: Andy Sonnenburg Date: Mon, 11 Aug 2014 14:39:31 -0400 Subject: [PATCH] Adjust qsort comment --- src/clj/joy/q.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/clj/joy/q.clj b/src/clj/joy/q.clj index d1bb93b..087b33f 100644 --- a/src/clj/joy/q.clj +++ b/src/clj/joy/q.clj @@ -13,7 +13,7 @@ (recur (list* (filter smaller? xs) ;; #: Work all < pivot pivot ;; #: Work pivot itself - (remove smaller? xs) ;; #: Work all > pivot + (remove smaller? xs) ;; #: Work all >= pivot parts))) ;; #: cancat parts (when-let [[x & parts] parts] (cons x (sort-parts parts))))))) ;; #: Sort rest if more parts @@ -33,4 +33,4 @@ (qsort (rand-ints 20)) (take 10 (qsort (rand-ints 10000))) -) \ No newline at end of file +)