Order two numerical lists: Difference between revisions

Content added Content deleted
Line 140:
 
<lang clojure>
(defn lex? [[xa & xs] [y & ys]b]
(condreduce =
(=map x(fn y)[[a b]] (lex<= xs(compare a b) 0) ys)
(> (comparemap xvector y)a 0b)))) false
:else true))
</lang>
 
Retrieved from "https://rosettacode.org/wiki/Order_two_numerical_lists"