VI za StefanCHe ^^

1.
(defun pom (l a)
    (cond
        ((null l) nil)
        ((equal (car l) a) (append (list (car l)) (pom (cdr l) a)))
        (t (pom (cdr l) a))

    )

 )




(defun grupiraj(l)

   (cond
       ((null l) nil)
       (t (append (pom l (car l)) (grupiraj (remove (car l) l))))




   )

)


------------------------------------------------------------------------------------------------------------------------------

2.
(defun podM(A B)

    (cond

     ((null A) t)
     ((null B) nil)
     ( (member (car A) B) (and t (podM (cdr A) B)))
     ( t nil)


     )



)

-------------------------------------------------------------------------------------------------------------------------------

3.

(defun unija(A B)
   (cond
       ((and (null A) (null B)) nil)
       ((null A) B)
       ((null B) A)
       (t (remove-duplicates (append A B) :test #'equal))


   )

)

------------------------------------------------------------------------------------------------------------------------------

4.
(defun soglaski (str)

    (cond
       ((null str) nil)
       ((numberp (car str)) (soglaski (cdr str)))
       ((not(or (equal  (car str) 'a) (equal  (car str) 'e) (equal (car str) 'i) (equal (car str) 'o) (equal (car str) 'u)))
          (append (list (car str)) (soglaski (cdr str))))

        (t (soglaski (cdr str)))

    )



)


(defun samoglaski (str)


    (cond

       ((null str) nil)
         ((numberp (car str)) (samoglaski (cdr str)))
       ((or (equal  (car str) 'a) (equal  (car str) 'e) (equal (car str) 'i) (equal (car str) 'o) (equal (car str) 'u))
          (append (list (car str)) (samoglaski (cdr str))) )

        (t (samoglaski (cdr str)))

    )

 )



(defun izvadi_znaenje(str)

      (append (list(reverse(remove-duplicates (reverse(soglaski str)) :test #'equal)))
              (list(reverse(remove-duplicates (reverse(samoglaski str)) :test #'equal))) )


)

------------------------------------------------------------------------------------------------------------------------------

5.
(defun skalaren(A B)
  (cond
     ((or (null A) (null B)) 0 )
     ((equal (caar a) (caar b))  (+ ( *(cadr (car a)) (cadr (car b))) (skalaren (cdr A) (cdr B))))
     ((< (caar a) (caar b)) (skalaren (cdr A) B ))
     (T (skalaren A (cdr B)))
  )
)