~rhcarvalho/+junk/racket

« back to all changes in this revision

Viewing changes to demo/list-merge.rkt

  • Committer: Rodolfo Carvalho
  • Date: 2011-05-18 02:33:38 UTC
  • Revision ID: rhcarvalho@gmail.com-20110518023338-w9aon2m9v4fq2f80
Add some demo code

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
#lang racket
 
2
;;Merge two sorted list into a sorted list
 
3
(define (list-merge a b)
 
4
  (cond
 
5
    [(empty? a) b]
 
6
    [(empty? b) a]
 
7
    [else (if (< (car a) (car b))
 
8
              (cons (car a) (list-merge (cdr a) b))
 
9
              (cons (car b) (list-merge a (cdr b))))]))
 
10
 
 
11
(list-merge '(1 10 20 30) '(2 9 15 25 42 56))
 
 
b'\\ No newline at end of file'