屑俺日記

☆ alist

そういえば 以前emacsでそんなのが。apropos で "-alist" などを検索すると やたらにたくさんデータを格納したリストがいっぱい。
assciation list は、連想リストなどと 訳されているらしい。
LISPではリストのcarにkeyを、cdrにvalueを 入れる。でいいのか?
関数assoc は対応するリストを、なければnilを 返す。らしい。

[1]>(defvar *myalist*
        '((vegitable tomato)
          (frute apple)
          (drink tea)))
[2]>*myalist*
((VEGITABLE TOMATO) (FRUTE APPLE) (DRINK TEA))
[3]>(assoc 'frute *myalist*)
(FRUTE APPLE)
[4]> (assoc 'banana *myalist*)
NIL

☆ nil か -1 にしても、無限大にならない?

EmacsLispで。

(setq eval-expression-print-length nil)
nil
(defun mycount (list)
  (if (eq list nil) 0 
    (+ 1 (mycount (cdr list)))))
mycount
 
(mycount '( 1 2 (3 a b c) (4 (a b c d))))
4

で、適当な "-alist" の中身を数えてみた。

(mycount coding-system-alist)
Debugger entered--Lisp error: (error "Lisp nesting \
exceeds `max-lisp-eval-depth'")
  (if (eq list nil) 0 (+ 1 (mycount ...)))
... ;; 以下デバッグメッセージの山

表題の通り、無限大にできなかった。

(setq max-lisp-eval-depth 100000)
100000
(mycount coding-system-alist)
883

☆ 準クォート

quasiquote とかの訳語と見た。そういえば、「準星」とかいう訳語もあったっけ。

[1]> (cdr `(1 2 ,(cdr '(3 4 5))))
(2 (4 5))

適当に検索してみたら、 Emacs Lispもあった。

☆ URLが履歴になってた

画像検索しているうちに、URLが妙(前の検索文字が見える)ことに気づいた。
セーフサーチOFFで「あはは」「いひひ」「うふふ」と続けると、URLは次のようになった。

http://images.google.com/search?hl=ja&safe=off&site=&tbm=isch&source=hp&biw=1044&bih=721&\
q=%E3%81%82%E3%81%AF%E3%81%AF&oq=%E3%81%82%E3%81%AF%E3%81%AF&\
gs_l=img.3..0i4l2j0l3j0i5i4j0i5.1133.1784.0.2332.5.5.0.0.0.0.172.597.1j4.5.0...0.0...1ac..7.img.89kILmvWHrw#hl=ja&\
safe=off&tbm=isch&sa=1&\
q=%E3%81%86%E3%81%B5%E3%81%B5&oq=%E3%81%86%E3%81%B5%E3%81%B5&\
gs_l=img.3..0l7j0i5l3.2066.2628.2.3195.5.5.0.0.0.0.295.800.1j3j1.5.0...0.0...1c..7.img.KJXjY_2hFpQ&\
bav=on.2,or.r_qf.&bvm=bv.44158598,d.dGI&fp=993d48d9aaf23400&biw=1044&bih=721

これをデコードすると、

http://images.google.com/search?hl=ja&safe=off&site=&tbm=isch&source=hp&biw=1044&bih=721&\
q=あはは&oq=あはは&\
gs_l=img.3..0i4l2j0l3j0i5i4j0i5.1133.1784.0.2332.5.5.0.0.0.0.172.597.1j4.5.0...0.0...1ac..7.img.89kILmvWHrw#hl=ja&\
safe=off&tbm=isch&sa=1&\
q=うふふ&oq=うふふ&\
gs_l=img.3..0l7j0i5l3.2066.2628.2.3195.5.5.0.0.0.0.295.800.1j3j1.5.0...0.0...1c..7.img.KJXjY_2hFpQ&\
bav=on.2,or.r_qf.&bvm=bv.44158598,d.dGI&fp=993d48d9aaf23400&biw=1044&bih=721

「いひひ」が見当たらない。まだ何処かに何か隠れてる気もする。