Commit 67273b74 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

bug: fix -1 bug

parent c6ccec00
Pipeline #123 skipped
...@@ -42,7 +42,7 @@ ...@@ -42,7 +42,7 @@
(if (numberp ir) (if (numberp ir)
ir ir
-1)))) -1))))
(best (apply #'min results))) (best (apply #'min (remove-if #'minusp results))))
(cl-who:htm (cl-who:htm
(:tr (:th (cl-who:str b)) (:tr (:th (cl-who:str b))
(dolist (r results) (dolist (r results)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment