「Append (autolisp)」の版間の差分

2010年3月12日 (金) 11:38時点における版

構文: (append [list ...])

機能: 任意の数のリストを受け取り、1 つのリストに結合する。

引数

list : リスト。

戻り値: すべての引数を 1 つにまとめたリスト。; 引数を与えない場合は、 nil を返す。

サンプル

 (append '(a b) '(c d)) 
 (A B C D)

 (append '((a)(b)) '((c)(d))) 
 ((A) (B) (C) (D))

 (setq m '(A B C D E F))  (A B C D E F)  
 (append m '(G))
 (A B C D E F G)

 (setq m (append m '(G H I) (LIST 1 2 3)))
 (A B C D E F G H I 1 2 3)  

 (append)
 nil

@@ 13行目: / 13行目: @@
 ;サンプル
-: (append '(a b) '(c d))
+<pre class="brush: autolisp;">
-: '''(A B C D)'''
+ (append '(a b) '(c d))
-: ---
+ (A B C D)
-: (append '((a)(b)) '((c)(d)))
-: '''((A) (B) (C) (D))'''
+ (append '((a)(b)) '((c)(d)))
-: ---
+ ((A) (B) (C) (D))
-: (setq m '(A B C D E F))  (A B C D E F)
-: (append m '(G))
+ (setq m '(A B C D E F))  (A B C D E F)
-: '''(A B C D E F G)'''
+ (append m '(G))
-: ---
+ (A B C D E F G)
-: (setq m (append m '(G H I) (LIST 1 2 3)))
-: '''(A B C D E F G H I 1 2 3) '''
+ (setq m (append m '(G H I) (LIST 1 2 3)))
-: ---
+ (A B C D E F G H I 1 2 3)
-: (append)
-: '''nil'''
+ (append)
+ nil
+</pre>
 [[Category:AutoLISP]]