Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun najmalkuDva (lista)
- (pomosna lista 0 lista)
- )
- (defun pomosna (lista brojac pomosna_lista)
- (cond
- ((null lista) nil)
- ((and (null pomosna_lista)(>= brojac 2))(cons (car lista)(pomosna (remove (car lista)(flatten (cdr lista))) 0 (cdr lista))))
- ((and (null pomosna_lista)(< brojac 2))(pomosna (remove (car lista)(flatten (cdr lista))) 0 (cdr lista)))
- ((eq (car lista)(car pomosna_lista))(pomosna (flatten lista) (+ 1 brojac)(flatten (cdr pomosna_lista))))
- ((not(eq (car lista)(car pomosna_lista)))(pomosna (flatten lista) brojac (flatten (cdr pomosna_lista))))
- )
- )
- (defun flatten (lista)
- (cond
- ((null lista) nil)
- ((listp (car lista))(append (flatten (car lista))(flatten (cdr lista))))
- (t(append (list (car lista))(flatten (cdr lista))))
- )
- )
- (print (najmalkuDva '(2 (6 8) (1 1 2 (2 4) 6) ((1) 2)))) -> 2 6 1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement