Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define %merge
- (%rel (x xs y ys zs)
- [(null ys ys)]
- [(xs null xs)]
- [((cons x xs) (cons y ys) (cons x zs))
- (%<= x y)
- (%merge xs (cons y ys) zs)]
- [((cons x xs) (cons y ys) (cons y zs))
- (%> x y)
- (%merge (cons x xs) ys zs)]))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement