Q&A
butlastを使って
(setq hoge '(0 1 2 3 5))
(setq hoge (append (butlast hoge (- (length hoge) 4)) '(4) (nthcdr 4 hoge)))
でやりたいことが出来ました。ありがとうございました
表題通りです。
例えば(0 1 2 3 5)というリストの３番めと４番目の間に(4)を挿入して、
(0 1 2 3 4 5)というリストを作ってやりたいのですがどうすればいいでしょうか。
http://www.bookshelf.jp/texi/elisp-manual-20-2.5-jp/elisp_6.html#SEC89
のようにすればリストの０番目と１番目の間に挿入することはできるようですし
nthcdrで「n番目から末尾までのリスト」も取得できるのですが、
「先頭からm番目までのリスト」を取得できず詰まりました。
回答2件
0
リストを作ると cons セルの cdr で繋げたものができます。
このイメージをちゃんともっていないと LISP のリスト処理はハマりやすいです。
lang
1(setq foo '(0 1 2 3 5))
car cdr car cdr car cdr car cdr car cdr +---+---+ +---+---+ +---+---+ +---+---+ +---+-----+ foo--->| 0 | *----->| 1 | *----->| 2 | *----->| 3 | *----->| 5 | nil | +---+---+ +---+---+ +---+---+ +---+---+ +---+-----+
3 番目の要素を取得するには nthcdr を使います。
ちなみに nth だと 3 番目の要素の car だけ取ります。
lang
1(nthcdr 3 foo) ; (3 5) 2(nth 3 foo) ; 3
挿入する場合、先頭からの要素を取る必要はありません。
3 番目の要素の cdr を付け替えれば、リストが変更されます。
lang
1(setcdr (nthcdr 3 foo) 2 (cons 4 (nthcdr 4 foo))) 3foo ; (0 1 2 3 4 5)
投稿2014/12/04 03:08
総合スコア863
0
ベストアンサー
... 「先頭からm番目までのリスト」を取得 ...
butlast を使えばできるのでは？
このなかで butlast が説明されています。
...
‘butlast’ removes the last n elements. It is used to discard the tail of a list. There is also a destructive variant, ‘nbutlast’.ELISP> (setq list '(alpha beta gamma delta))
(alpha beta gamma delta)
ELISP> (butlast list 2)
(alpha beta)
...
投稿2014/12/04 00:38
総合スコア22324
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2014/12/04 05:20