홈/ 질문/Q 112592
다음
진행 중
김뿅가
Lv.0
등록일: 2020-10-13T16:49:44+09:00 카테고리:

List 마지막 값과 마지막 바로 앞 값 자리 바꾸기 질문드립니다

안녕하십니까
리스트 관련 질문 드립니다
(setq AA (list 1800 1800 1800 1800 1000))
이라는 리스트가 있다고 가정했을때
마지막 값인 1000과 1000의 바로 앞 1800 값과 자리를 바꾸고 싶습니다
‘SUBST’ 를 이용해서 바꿔보려했지만 1800 값이 여러개 중복 되어 
제가 원하는 위치인 마지막 값과 마지막 바로 앞 자리를 바꿀 수 없어
질문드립니다 .. 감사합니다 ^^
공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. ;이렇게 하시면 되요…
      ;nnr2 = ‘(1800 1800 1800 1000 1800)
      (setq nnr1 (reverse aa))
      (setq nnr2 (reverse (append (list (cadr nnr1)) (list (car nnr1)) (cdr (cdr nnr1)))))
      • 0
    3. Lv.2
      =================================
      ;; N번째 위치의 문자를 교체하기.
      ;; (LM:SubstNth 10 3 ‘(0 1 2 3 4 5))
      ;; (0 1 2 10 4 5)
      ;;  제작자 : http://www.lee-mac.com
      ;;================================
      (defun LM:SubstNth ( a n l / i )
        (setq i -1)
        (mapcar ‘(lambda ( x ) (if (= (setq i (1+ i)) n) a x)) l)
      )
       (defun c:tt ()
        (setq AA (list 1800 1800 1800 1800 1000))
         (setq i  (vl-position 1000 aa) ii  (- i 1))
         (setq a  (nth i  aa)   b (nth ii aa))
         (setq aa (LM:SubstNth a ii aa))
         (setq aa (LM:SubstNth b i aa))
      )
      • 0
    4. Lv.0

      답변 감사합니다 … ^^;

      좋은 하루되시길 ..
      • 0
    5. Lv.0

      답변 감사합니다 ^^

      덕분에 해결했습니다.. ^^
      • 0