On Tue, Jun 22, 2010 at 4:27 PM, cageface <[email protected]> wrote:
>
> Any thoughts on this or other approaches?
(defn compare-row [a b]
;; compare null rows as > to advance
cursor
(cond
(and (nil? a) (nil? b)) [0,0]
(and (nil? a) (not= b nil)) [1, 0]
(and (not= a nil) (nil? b)) [-1, 0]
true (loop [col 0 a a b b]
(let [cmp (compare-fields (first a) (first
b))]
(if (and (< col (count a)) (= cmp 0))
(recur (+ 1 col) (rest a) (rest b))
[cmp,col])))))
I like lining things up.
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
