daily pastebin goal
76%
SHARE
TWEET

Untitled

a guest Jan 11th, 2017 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defun izbrisiPrv(lista)
  2.     (cdr lista)
  3. )
  4.  
  5.  
  6. (defun podlista(l)
  7.     (cond
  8.         ((null l) nil)
  9.         ((listp (car l)) (cons (izbrisiPrv(car l)) (cdr l)))
  10.         ((atom (car l)) (podlista(cdr l)))
  11.         (t (cons (podlista(car l)) (podlista(cdr l))))
  12.     )
  13. )
  14.  
  15.  
  16. (print (podlista '(1 (2 (3 4) 5) 6)))
RAW Paste Data
Top