Re:>400
　　　　　　　　　　　　　 それはいいアイディアである

お前なんかに誉められてもうれしくないよ

Re:>402
　　　　　　　　　　　　　 お前のことは誉めていない。
　　　　　　　　　 知能ベースでも書いてから物を言うようにしろ

Tail Recursion は未だに Elisp に実装されていない。
この事実に理由はあるのか？

tail recursion なら実装されてますがなにか？
おまいの言いたいのは tail recursion optimization のことだろ。
理由はもちろんある。
-- 終了 --

あんま相手すんな。
伝染るぞ。

Re:>405

　　　　　　　　　　　　 じゃあお前が optimization しろ

動的スコープの言語では末尾再帰の最適化は不可能
(defun bar ()
(fset 'foo (lambda () (print "bar"))))
(defun foo ()
(bar)
(foo))

　　　　　　　　　A* サーチ・アルゴリズムの elisp バーションが
　　　　　　　　　　　　　 ほしくないわけでもないな。

____________
"Self" is that which is in the process of becoming... --Zeno
Today's Lucky Number: 421

>>409
負けたな

http://www.club-paruparo.com/

フィリピン万個伝説よろ

windows 最高！

ある文字列から四文字ずつ取り出してリストを作りたいのですが
どういう風にすればよいのでしょうか？

"いろはにほへとち" という風な文字列から '("いろはに" "ほへとち")
という風なリストを得たいのです。
文字列は四文字以上で4の倍数であることは保証されています。

length と substring を使うと簡単にできました。
どうもすいません。

Dired-modeのコピーとかをバックグラウンドでできませぬか？

拡張子 .tex を開けると自動的にflyspell-modeになるようにしたくて、
ついでに辞書もデフォルト(英語)からかえたくて、以下の
コードを~/.emacs にいれたんですけど、flyspell-mode
も辞書の変換もうまくいきません。なにがだめなんでしょう？


(add-hook 'LaTeX-mode-hook 'flyspell-mode)
(setq LaTex-mode-hook
'(lambda ()
(setq ispell-personal-dictionary "~/.ispell-dico-perso")
(ispell-change-dictionary "dansk")
))

エラーのメッセージはでないんですけど、、、

>>415
>も辞書の変換もうまくいきません。なにがだめなんでしょう？
せっかくadd-hookしたのに、次のsetqで上書きされてます。
danskに萌えたので、設定例も。
(setq LaTex-mode-hook
(lambda ()
(flyspell-mode 1)
(set (make-local-variable 'ispell-personal-dictionary) "~/.ispell-dico-perso")
(ispell-change-dictionary "dansk")
))

>>416
ありがとうございます。萌えてくださって。ってちがうか。
書いて下さった設定例でやってみたんですけど、
やっぱりうまくいきません、、、辞書も、英語のままです。
なにがいったいだめなんでしょうか、、、

>>417
だめでしたか。
当方ispell-modeを英語で使ったことがあるだけで、personal-dictionaryなん
て変えたこともないのでした。
せっかくなので少し調べてみます。

>>418
きょ、恐縮です、、、、
わたしももうちょっといろいろやってみます。

flyspell-modeだとプロセスを上げっぱなしにし、
それに付随して、辞書の指定はプロセス立ち上げ時なので、
辞書の設定を先に行う必要があるようですね。
こんなんでどうでしょうか。
(setq LaTex-mode-hook
(lambda ()
(let ((ispell-local-dictionary "dansk"))
(set (make-local-variable 'ispell-personal-dictionary) "~/.ispell-dico-perso")
(flyspell-mode 1)
)))
#自分で試してみる気はしません

>>420
調べて下さってありがとうございます。m(_ _)m
ですが、やはりだめでした。。。
そもそも、なぜflyspell-modeさえ自動的にたちあがらないのは
なぜなのか、、、
もうちょっとがんばってしらべてみます。

げ、そういう状態でしたか。
LaTex-mode-hook じゃなくて latex-mode-hook なのでは？

>>422
あああありがとうございます!(涙
うまくいきました!
あのコードはどっかから拾ってきたものなので盲目に過信してました,,,orz

最初に書いてもらったコードのLaTex をlatexに変えることでいけました。
一応貼っておきます。

(setq latex-mode-hook
(lambda ()
(flyspell-mode 1)
(set (make-local-variable 'ispell-personal-dictionary) "~/.ispell-dico-perso")
(ispell-change-dictionary "dansk")
))

>>423
プロセスを作成するのは最初のparse時であり、
ispell-change-dictionaryでispellプロセスがあれば殺す、
という処理でした。

この辺はflyspellかispellかは関係ないですね。勘違いしてました。

>>424
わたしにはまだよくわかりませんが
御教授戴きありがとうございました。時間ができしだい
Lispのマニュアルも最初から最後まで読もうと思います。

Reply-to:>>425
　　　 よかったな。 Lisp の場合、フリーでダウンロードできる本が沢山ある。
　　　　　　　　　　　　　　　　　探して読め。

____________
If T is consistent, T !|- G_T.
If T is ω-consistent, T !|- ￢G_T.

引数で与えたローマ字文字列を、平仮名に変換してくれる関数ありませんか？

Reply-to:>>427
> 引数で与えたローマ字文字列を、平仮名に変換してくれる関数ありませんか？

　　　　　　　 そんなのあるもなにも、自分で簡単に書けるだろうが。

____________
If T is consistent, T !|- G_T.
If T is ω-consistent, T !|- ￢G_T.

>>427
kakasi 使っていいなら kakasi.el とか skk-kakasi.el とかを参考にすると
か。

読み込んだら文字化け！
何とかして！！

線香と水で供養する！

見るんじゃない 感じるんだ
そのうち文字化けでも読めるようになる

なにその Rogue like

Reply-to:>>427
> 引数で与えたローマ字文字列を、平仮名に変換してくれる関数ありませんか？

　　　　　　　　　　　　　　　 pt を 0 で始める。
　　　　　　　　　pt を相対として、 substring で引数の文字列の
　　　　　　　　　　　`one-char'、`two-char'、`three-char'
　　　　　　　　　　　　　　　　 をゲットする。

　　　　　　　　　　　　s は empty string として初期化。

　　　　　　　　　　　　　　　 (setq s (concat s
　　　　　　　　　　　　　　　　　　 (cond
　　　　　　　　　　　　　((string= one-char "a" ) "あ")
　　　　　　　　　　　　　((string= one-char "i" ) "い")
　　　　　　　　　　　　　　　　　　　...
　　　　　　　　　　　 　((string= two-char "ka" ) "か")
　　　　　　　　　　　　　　　　　　　...
　　　　　　　　　　　　　　　　　　　)))
　　　　　　　　　　　　　　　んで、 pt を動かす。

　　　　　　　　　　　　　　 上の作業を繰りかえせ。
　　　　　　　　Elisp 道場なんだから、後は自分で組み立てろバカ。


____________
If T is consistent, T !|- G_T.
If T is ω-consistent, T !|- ￢G_T.

Reply-to:>>427
> 引数で与えたローマ字文字列を、平仮名に変換してくれる関数ありませんか？

pt を 0 で始める。
pt を相対として、 substring で引数の文字列の
`one-char'、`two-char'、`three-char'
をゲットする。

s は empty string として初期化。

(setq s (concat s
(cond
((string= one-char "a" ) "あ")
((string= one-char "i" ) "い")
...
((string= two-char "ka" ) "か")
...
)))
んで、 pt を動かす。

上の作業を繰りかえせ。
Elisp 道場なんだから、後は自分で組み立てろバカ。

二日考えた結果がそれか

うん。何でそう書くのかって感じだな。

Reply-to:>>436
　　　　　　　　　　　　　　　 別に考えていない。

Reply-to:>>437
　　　　相手が初心者である故、一番直観的な実装方法を書いてやっただけだ。
　　　実際、ストリングではなく、char 単位で比較をした方が早く処理できる。

____________
If T is consistent, T !|- G_T.
If T is ω-consistent, T !|- ￢G_T.

ふつーに書けば
(let ((r-h-alist
'((a . あ) (i . い) (u . う) (e . え) (o . お)
(ka . か) (ki . き) (ku . く) (ke . け) (ko . こ)
(sa . さ) (si . し) (su . す) (se . せ) (so . そ))))
(defconst r-h-table
(let ((table (make-hash-table :test 'eq)))
(dolist (x r-h-alist)
(puthash (car x) (cdr x) table))
table))
(defconst r-h-regexp
(regexp-opt (mapcar (lambda (x) (symbol-name (car x))) r-h-alist))))
(defun r-h (roma)
(let ((start 0) result)
(while (string-match r-h-regexp roma start)
(if (> (match-beginning 0) start)
(push (substring roma start (match-beginning 0)) result))
(setq start (match-end 0))
(push (symbol-name (gethash (intern (match-string 0 roma)) r-h-table))
result))
(push (substring roma start) result)
(apply #'concat (nreverse result))))
こんな感じだろ。cond で比較してくなんて小学生か?

Reply-to:>>439
　　　　　　　　　　　　　最適化などいくらでもできる。
　　　　 その関数をプログラム中に何度も使用のであれば、早くすればよい。
　　　 さっきも言ったように「一番直観的な実装方法を書いてやっただけ」だ。
　　　　　　 吾の君ので比較した場合、どっちが直観的かは自明である。

____________
If T is consistent, T !|- G_T.
If T is ω-consistent, T !|- ￢G_T.

ローマ字とかなの対応リスト作ったほうが直感的だよ。

中学生じゃなかったっけ

>>440
おツムの程度がずいぶんお粗末ですねえ。

438 が最適化されていると感じるのなら
(defconst r-h-alist
'(("a" . "あ") ("i" . "い") ("u" . "う") ("e" . "え") ("o" . "お")
("ka" . "か") ("ki" . "き") ("ku" . "く") ("ke" . "け") ("ko" . "こ")
("sa" . "さ") ("si" . "し") ("su" . "す") ("se" . "せ") ("so" . "そ")))
(defconst r-h-regexp
(regexp-opt (mapcar #'car r-h-alist)))
(defun r-h (roma)
(let ((start 0) (result ""))
(while (string-match r-h-regexp roma start)
(setq start (match-end 0))
(setq result (concat result
(cdr (assoc (match-string 0 roma) r-h-alist)))))
result))
これで理解できるかな。
ローマ字にマッチする正規表現を検索し、結果をひらがなとの対応表から引く。
one-char two-char とやらを cond でだらだら比較するよりずっと「直観的」
じゃないか。

ローマ字綴りが変でマッチしない時の処理を加えねば。

式が違っているのに、算盤使うか電卓使うかで喧嘩されてもなあ

コードも出してこないのに、口先だけで煽られてもなあ

アンサーノーと電卓の奇屍

もう少しいじれば n=(ry くらい言い出すのではなかろうか。