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