Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun presmetaj (lista elem)
- (presmetaj1 lista elem 0 lista)
- )
- (defun presmetaj1 (lista elem brojac pomosna_lista)
- (cond
- ((and (null pomosna_lista)(eq (mod brojac 2) 0))(pomosna1 lista lista 0))
- ((and (null pomosna_lista)(eq (mod brojac 2) 1))(pomosna2 lista))
- ((eq (car pomosna_lista) elem)(presmetaj1 lista elem (+ 1 brojac)(cdr pomosna_lista)))
- ((not (eq (car pomosna_lista) elem))(presmetaj1 lista elem brojac (cdr pomosna_lista)))
- )
- )
- (defun pomosna1 (lista pomosna_lista brojac)
- (cond
- ((null lista) nil)
- ((and (null pomosna_lista)(eq (mod brojac 2) 0))(cons (car lista)(pomosna1 (cdr lista) lista 0)))
- ((and (null pomosna_lista)(not(eq (mod brojac 2) 0)))(pomosna1 (cdr lista) lista 0))
- ((eq (car lista)(car pomosna_lista))(pomosna1 lista (cdr pomosna_lista)(+ 1 brojac)))
- ((not(eq (car lista)(car pomosna_lista)))(pomosna1 lista (cdr pomosna_lista) brojac))
- ))
- (defun pomosna2 (lista)
- (cond
- ((null lista) nil)
- ((eq (mod (car lista) 3) 0)(cons (car lista)(pomosna2 (cdr lista))))
- ((not (eq (mod (car lista) 3) 0))(pomosna2 (cdr lista)))
- )
- )
- (print (presmetaj '(1 2 3 6 3 1 4 9) 1))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement