Guest User

Untitled

a guest
Jul 25th, 2018
94
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.16 KB | None | 0 0
  1. (defun mystery (x y)
  2.   (if (null y)
  3.       nil
  4.       (if (eql (car y) x)
  5.           0
  6.           (let ((z (mystery x (cdr y))))
  7.             (and z (+ z 1))))))
Add Comment
Please, Sign In to add comment