Order two numerical lists: Difference between revisions
Content added Content deleted
m (→{{header|Scheme}}: oupss) |
|||
Line 794: | Line 794: | ||
((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> |
|||
=={{header|Standard ML}}== |
=={{header|Standard ML}}== |