【xyzzy】2重リスト書き換えサンプル【覚書】

ファイル名: -

 

 

 

 

※上から順に実行してます。

(setq al (list (list "a" "b" "c")
			   (list)
			   (list "e" "f" "g")
			   ))
(("a" "b" "c") nil ("e" "f" "g"))
;add 0
(setf (nth 1 al) (list "kk"))
("kk")
al
(("a" "b" "c") ("kk") ("e" "f" "g"))

;add 1
(nconc (nth 1 al) (list "ppp"))
("kk" "ppp")
al
(("a" "b" "c") ("kk" "ppp") ("e" "f" "g"))

;del
(delete (car(last (nth 1 al))) (nth 1 al))
("kk")
al
(("a" "b" "c") ("kk") ("e" "f" "g"))

(rplacd (nth 1 al) (list "zzz"))
("kk" "zzz")
al
(("a" "b" "c") ("kk" "zzz") ("e" "f" "g"))

(setf (nth 1 al) nil)
nil
al
(("a" "b" "c") nil ("e" "f" "g"))

(setf (nth 1 al) (list "kk"))
("kk")
al
(("a" "b" "c") ("kk") ("e" "f" "g"))
(setf (nth 1 al) (list "oo"))
("oo")
al
(("a" "b" "c") ("oo") ("e" "f" "g"))

 

 

 

 

 

Delicious にシェア
Digg にシェア
reddit にシェア
LinkedIn にシェア
LINEで送る
email this
Pocket

66 views.



コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です