Home
Random
Log in
Settings
About Rosetta Code
Disclaimers
Rosetta Code
Search
Order two numerical lists: Difference between revisions
Page
Discussion
← Older edit
Newer edit →
Order two numerical lists
(view source)
Revision as of 03:13, 20 September 2012
10 bytes removed
,
11 years ago
→{{header|clojure}}
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>
Anonymous user
rosettacode>Gwenkdd