home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0963.lha / SIOD / scm / merge-sort.scm < prev    next >
Text File  |  1993-05-07  |  397b  |  11 lines
  1. (define (merge x y test)
  2.         (cond ((null? x) y)
  3.               ((null? y) x)
  4.               ((test (car x) (car y)) (cons (car x) (merge (cdr x) y test)))
  5.               (else (cons (car y) (merge x (cdr y) test)))))
  6.  
  7. (define (merge-sort x test)
  8.         (cond ((null? (cdr x)) x)
  9.               (else (merge (list (car x) (cadr x)) 
  10.                            (merge-sort (cddr x) test) test))))
  11.