Home
Random
Log in
Settings
About Rosetta Code
Disclaimers
Rosetta Code
Search
Order two numerical lists: Difference between revisions
Language
Watch
View source
← Older edit
Newer edit →
Content deleted
Content added
Revision as of 03:13, 20 September 2012
view source
rosettacode>Gwenkdd
→{{header|clojure}}
← Older edit
Revision as of 03:37, 20 September 2012
view source
rosettacode>Gwenkdd
→{{header|clojure}}
Newer edit →
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>