Order two numerical lists: Difference between revisions

Content deleted Content added

Inline

@@ Line 790: / Line 790: @@
 =={{header|Scheme}}==
-<lang scheme>(define (lexicographic-less? a b)
+<lang scheme>(define (lex-< a b)
-        (cond ((or (null? a) (null? b)) (and (null? a) (not (null? b))))
+        (cond ((null? b) #f)
-              ((= (car a) (car b)) (lexicographic-less? (cdr a) (cdr b)))
+              ((null? a) #t)
-              (else (< (car a) (car b)))))</lang>
+              ((= (car a) (car b)) (lex-< (cdr a) (cdr b)))
+              (else (< (car a) (car b)))))
+</lang>
 =={{header|Standard ML}}==