Order two numerical lists: Difference between revisions

Content added Content deleted

Inline

@@ Line 141: / Line 141: @@
 <lang clojure>
 (defn lex? [a b]
-  (reduce =
+  (compare a b))
-    (map (fn [[a b]] (<= (compare a b) 0) )
-      (map vector a b))))
 </lang>