Rosetta Code

Order two numerical lists: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Line 790:
 
=={{header|Scheme}}==
<lang scheme>(define (lexicographiclex-less?< a b)
(cond ((or (null? a) (null? b)) (and (null? a) (not (null? b)))#f)
((= (car a) (car b)) (lexicographic-lessnull? (cdr a) (cdr b))#t)
(else (<= (car a) (car b)) (lex-< (cdr a) (cdr b)))</lang>
(else (< (car a) (car b)))))
</lang>
 
=={{header|Standard ML}}==
Retrieved from "https://rosettacode.org/wiki/Order_two_numerical_lists"