Acet-list-isort

提供:GizmoLabs - だいたい CAD LISP なサイト
2025年8月9日 (土) 21:37時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (acet-list-isort ''lst'' ''index'' ) ; 機能 : lst をインデックスで並べ替えたリストを返す。 ; 引数 :* lst … ソートするリスト。「サブリストのリスト」。 :* index … ソートする位置の整数。最初の項目は 0 ; 戻り値 : index 位置で更新されたリスト ; サンプル <pre class="brush:autolisp;"> 数値でソート (setq lst (list '(1 2 5) '(2 1 4) '(3 4 3) '(4 3 2) '(…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(acet-list-isort lst index )


機能
lst をインデックスで並べ替えたリストを返す。


引数
  • lst … ソートするリスト。「サブリストのリスト」。
  • index … ソートする位置の整数。最初の項目は 0


戻り値
index 位置で更新されたリスト


サンプル
数値でソート
(setq lst (list '(1 2 5) '(2 1 4) '(3 4 3) '(4 3 2) '(5 5 1)))

(acet-list-isort lst 0)
((1 2 5) (2 1 4) (3 4 3) (4 3 2) (5 5 1))

(acet-list-isort lst 1)
((2 1 4) (1 2 5) (4 3 2) (3 4 3) (5 5 1))

(acet-list-isort lst 2)
((5 5 1) (4 3 2) (3 4 3) (2 1 4) (1 2 5))


; 文字でソート
(setq lst (list '("a" 2 5) '("b" 1 4) '("d" 4 3) '("x" 3 2) '("q" 5 1)))
(acet-list-isort lst 0)
(("a" 2 5) ("b" 1 4) ("d" 4 3) ("q" 5 1) ("x" 3 2))

(setq lst (list '("あ" 2 5) '("が" 1 4) '("さ" 4 3) '("ん" 3 2) '("ご" 5 1)))
(acet-list-isort lst 0)
(("あ" 2 5) ("が" 1 4) ("ご" 5 1) ("さ" 4 3) ("ん" 3 2))


関連事項