Advertisement
Latkoski

ispushtiN

May 4th, 2016
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.32 KB | None | 0 0
  1. (defun ispushtiN (n lista)
  2.     (pomosna n lista 1)
  3.     )
  4.  
  5. ;(setq lista1 nil)
  6.  
  7.  
  8. (defun pomosna (n lista brojac)
  9.     (cond
  10.         ((null lista) nil)
  11.         ((eq n brojac)(pomosna n (cdr lista) 1))
  12.         (t (cons (car lista)(pomosna n (cdr lista) (+ brojac 1))))
  13.     )
  14.     )
  15.    
  16.     (print(ispushtiN 2 '(1 3 2 7 4 5)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement