Order two numerical lists: Difference between revisions
Content added Content deleted
m (→{{header|Scheme}}: more like char< ...) |
m (→{{header|Scheme}}: oupss) |
||
Line 790: | Line 790: | ||
=={{header|Scheme}}== |
=={{header|Scheme}}== |
||
<lang scheme>(define (lex< a b) |
<lang scheme>(define (lex<? a b) |
||
(cond ((null? b) #f) |
(cond ((null? b) #f) |
||
((null? a) #t) |
((null? a) #t) |
||
((= (car a) (car b)) (lex< (cdr a) (cdr b))) |
((= (car a) (car b)) (lex<? (cdr a) (cdr b))) |
||
(else (< (car a) (car b))))) |
(else (< (car a) (car b))))) |
||
</lang> |
</lang> |