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 02:56, 20 September 2012
6 bytes removed
,
11 years ago
→{{header|clojure}}
Revision as of 02:37, 20 September 2012
(
view source
)
rosettacode>Gwenkdd
(
→{{header|C++}}
)
← Older edit
Revision as of 02:56, 20 September 2012
(
view source
)
rosettacode>Gwenkdd
(
→{{header|clojure}}
)
Newer edit →
Line 140:
<lang clojure>
(defn lex? [
a
[x
b
& xs] [y & ys]
]
(cond
(let [sa (count a) sb (count b)]
(if
(=
sa
x
sb
y
)
(lex xs ys)
(
<
>
(compare
a
x
b
y
) 0)
false
:else
(> sb sa))
true
))
</lang>
Anonymous user
rosettacode>Gwenkdd