nlattessi

Seminario_TP3_EJ06

May 9th, 2012
22
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.18 KB | None | 0 0
  1. (defun mascara (l1 l2 &optional (l3 nil))
  2.     (if (null l1) l3
  3.         (if (= 0 (car l1))
  4.             (mascara (cdr l1) (cdr l2) l3)
  5.             (mascara (cdr l1) (cdr l2) (append l3 (list (car l2))))
  6.         )
  7.     )
  8. )
Advertisement
Add Comment
Please, Sign In to add comment