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 02:56, 20 September 2012
view source
rosettacode>Gwenkdd
→{{header|clojure}}
← Older edit
Revision as of 03:13, 20 September 2012
view source
rosettacode>Gwenkdd
→{{header|clojure}}
Newer edit →
Line 140:
<lang clojure>
(defn lex? [
[x
a
& xs] [y & ys]
b
]
(
cond
reduce =
(
=
map
x
(fn
y)
[[a b]]
(
lex
<=
xs
(compare a b) 0)
ys
)
(>
(
compare
map
x
vector
y)
a
0
b)))
)
false
:else true))
</lang>