質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Emacs

GNU Emacsと拡張性の高い、高性能なテキストエディタです。豊富なライブラリの導入により、統合開発環境やWebブラウザとしても機能させる事が可能です。

LISP

LISPはプログラミング言語の一種であり、関数型言語に分類されています。 特徴として、括弧を多様する独特の構文を持ちます。

Q&A

解決済

2回答

2452閲覧

EmacsLisp dolistなどで何番目の要素を参照しているかを確認したい

退会済みユーザー

退会済みユーザー

総合スコア0

Emacs

GNU Emacsと拡張性の高い、高性能なテキストエディタです。豊富なライブラリの導入により、統合開発環境やWebブラウザとしても機能させる事が可能です。

LISP

LISPはプログラミング言語の一種であり、関数型言語に分類されています。 特徴として、括弧を多様する独特の構文を持ちます。

0グッド

0クリップ

投稿2014/12/18 02:00

もともと、やりたかったのは("1" "2" "3")というリストを(1 2 3)に変換してやることです。

lang

1(setq foo '("1" "2" "3")) 2(dolist (num foo) 3 (setq num (string-to-number num)) 4) ;=>nil 5foo ;=>("1" "2" "3")

ではfooの中身が変わらず。
setqではなくsetcarを使う必要があるのだろうとは思うのですが、
その場合nthcarの引数に「リストの何番目を参照しているのか」が必要となります。
しかし、dolist中に何番目の要素を参照しているのかを知る方法がわからず困っています。

当初の目的自体は

lang

1(let ((i 0)) 2 (while (< i (length foo)) 3 (setcar (nthcdr i foo) (string-to-number (nth i foo))) 4 (setq i (+ i 1)) 5 ) 6 ) ;=>nil 7foo ;=>(1 2 3)

とすることで達成できたのですが、
リストが複雑になってくると毎回手動でイテレーションするのはバグ作りこみそうで怖いです。

そこで、できればdolistのようなマクロを使いたいのですが、
Emacs組み込み関数や有名なマクロで、
このような目的を果たせるものはあるでしょうか?

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ベストアンサー

当初の目的である、("1" "2" "3")というリストを(1 2 3)に変換するということであれば、
Lisp的には、map系関数で実現すると思います。elispなら、

(mapcar #'string-to-number '("1" "2" "3")) ;=> (1 2 3)

位かなと思います。

fooの内容を上書きしたければ、

(setq foo (list "1" "2" "3")) (setq foo (mapcar #'string-to-number foo))

ですね。

mapcarでは新しくリストを作りますが、新しくリストを作りたくないという場合は、

(require 'cl-lib) (cl-mapl (lambda (x) (setcar x (string-to-number (car x)))) foo) foo ;=> (1 2 3)

などとするかと思います。しかし、余程のことでない限りmapcarで間に合います。

投稿2014/12/18 09:56

g000001

総合スコア65

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

otn

2014/12/18 11:53

maplなんていう関数があったんですね! 私の回答と同じ効果を簡単に書けます>質問者さん しかし、私が今使ってる物には標準ではcl-libが入ってない。
退会済みユーザー

退会済みユーザー

2014/12/18 12:07

1関数でできることでしたか…感動的です。 回答有難うございました。
guest

0

エラーチェックなどをさておくと、

lang

1(defun bar (x) 2 (setcar x (string-to-number (car x))) 3 (if (cdr x) 4 (bar (cdr x)) 5 ) 6) 7 8(setq foo '("1" "2" "3")) 9(bar foo)

で、どうでしょうか?

投稿2014/12/18 07:24

otn

総合スコア84423

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問