리습 강좌 - 리스트의 n 번째 요소를 교체하기, 추가하기, 삭제하기 함수.

본 강좌는 아키오피스(김희태)에 의해 만들어 졌으며 어떠한 웹이나
출판물에 아키오피스(김희태)의 동의없이 올리는 것을 허락하지 않습니다.

 

kht-nth-subst : 리스트의 n 번째 요소를 새로운 요소로 교체하는 함수
kht-nth-add : 리스트의 n 번째에 새로운 요소를 추가하는 함수
kht-nth-remove: 리스트의 n 번째 요소를 삭제하는 함수


(kht-nth-subst 리스트 n번째 새로운요소)

(kht-nth-subst '(1 2 3 4) 2 5)
=> (1 2 5 4)

(kht-nth-subst '(1 (2) (3 5) (4 2 3)) 3 '(2))
=> (1 (2) (3 5) (2))

(kht-nth-add 리스트 n번째 새로운요소)

(kht-nth-add '(1 2 3 4) 2 5)
=> (1 2 5 3 4)

(kht-nth-remove 리스트 n번째)

(kht-nth-remove '(1 2 3 4) 2)
=> (1 2 4)
코드
  
  (defun nthcdr (N L)
     (cond ((zerop N) L )
           ( T (nthcdr (- N 1) (cdr L)))  
     )
  )

  (defun firstN (N L)
     (cond ((zerop N) nil)
           ((>= n (length l)) l)
           ( T   (cons
                  (car L)
                  (firstN (1- N) (cdr L))
                 )
           )
     )
  )

  (defun kht-nth-subst (lis n at / )
    (append (append (firstn n lis) (list at)) (nthcdr (1+ n) lis))
  )

  (defun kht-nth-add (lis n at / )
    (append (append (firstn n lis) (list at)) (nthcdr n lis))
  )

  (defun kht-nth-remove (lis n / )
    (append (append (firstn n lis)) (nthcdr (1+ n) lis))
  )