Advertisement
Guest User

Untitled

a guest
Jun 17th, 2019
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. (define %merge
  2. (%rel (x xs y ys zs)
  3. [(null ys ys)]
  4. [(xs null xs)]
  5. [((cons x xs) (cons y ys) (cons x zs))
  6. (%<= x y)
  7. (%merge xs (cons y ys) zs)]
  8. [((cons x xs) (cons y ys) (cons y zs))
  9. (%> x y)
  10. (%merge (cons x xs) ys zs)]))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement