리습(LISP) 누가좀 제발.. 7줄짜리 코드 와서 한번만 봐주세요..

[용접인생(175.205)]

(defun union(lis1 lis2)

        (cond

        ((null lis1) nil)

        ((null lis2) nil)

        ((eq (car lis1) (car lis2)) (remove (car lis2) lis2))

        (t (union lis1 (cdr lis2))))

        ((union (cdr lis1) lis2)))

그냥 집합을 합집합으로 만드는건데

union {a b c} {b c d = {a b c d}뾰로롱!

도대채 뭐가문제인거냐 이 함수언어 

씨에선 그냥 스택박아놓고 돌리면되는데 이건 도대체 어떻게....

-적성검사에서 공간지각 9.7점  추리능력 1.1점 맞았는데  내적성은 용접인건가

제발좀 도와주세요.ㅠ

[d(220.118)]

(defun my-union (lst1 lst2) (remove-duplicates (append lst1 lst2)))

[야이미친(121.44)]

얌마 그걸 I. l1-(a), l2=(), II. l1=(), l2=(a), III. l1=(a), l2=(a), IV. l1=(a), l2=(b) 경우에 대해 일단 작동하게 만드는 걸 생각해봐라. d 처럼 하면 빵점이여, 그리고 씨로 하면 더 쥐약이여. 당췌 조팝들은 개념이 없어서리 ㅋㅋㅋ