tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Order-two-numerical-lists/Scheme/order-two-numerical-lists.ss
+++ b/Task/Order-two-numerical-lists/Scheme/order-two-numerical-lists.ss
@ -0,0 +1,5 @@
+(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)))))