(define (merge a b)
(if (null? a)
b
(if (null? b)
a
(if (< (length (car a)) (length (car b)))
(append (list (car a)) (merge (cdr a) b))
(append (list (car b)) (merge (cdr b) a))
))))
Subscribe to:
Post Comments (Atom)
attempts to solve technical problems
No comments:
Post a Comment