Guest User

Untitled

a guest
Jul 27th, 2017
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.20 KB | None | 0 0
  1. (defun pair-iterative (x y)
  2. (do ((xx x (cdr x)) (yy y (cdr y)) (result nil (append result (list (car xx) (car yy)))))
  3.          (cond
  4.            (if (null xx) result)
  5.            (if (null yy) result))))
Advertisement
Add Comment
Please, Sign In to add comment