Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun transformiraj-paren (lista)
- (pomosna lista lista 1)
- )
- (defun pomosna (lista brojac pomosna-lista)
- (cond
- ((null lista) nil)
- ((and (null pomosna-lista)(eq (mod brojac 2) 0))(cons (car lista)(pomosna (remove (car lista)(cdr lista)) 0 (cdr lista))))
- ((and (null pomosna-lista)(eq (mod brojac 2) 1))(pomosna (remove (car lista)(cdr lista)) 0 (cdr lista)))
- ((listp (car lista))(cons (pomosna (car lista) 0 (car lista))(pomosna (cdr lista) 0 (cdr lista))))
- ((eq (car lista)(car pomosna-lista))(pomosna lista (+ 1 brojac)(cdr pomosna-lista)))
- ((not (eq (car lista)(car pomosna-lista)))(pomosna lista brojac (cdr pomosna-lista)))
- )
- )
- (print (transformiraj-paren '(1 5 3 5 4 5 1 5 8 3)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement