際際滷

どう�ても
竃オチです
云輝にありがとうございました

徭失�B初
￠ @emasaka
￠云兆�互�鰌��
￠ �j備鯛を�碧�Y惚にしてTwitterに送すメソッドの�たぶん�圷怕
￠ ja.wikipedia.orgで仝Locator/Identifier Separation Protocol々の
ペ�`ジを羨てた繁
￠旗燕恬�Bash on Rails
￠ 40旗フリ�`タ�`
￠ブログ
仝云を�iむ々http://emasaka.blog65.fc2.com/

仝Lispはカッコが謹い々
などと賦しまして

(defun?fact?(n)
??(if?(zerop?n)
??????1
????(*?n?(fact?(??n?1)))?))
�A�\�factorial�をこんなふうに
��い燭蠅靴泙�

これを
より��畜に��

(defun?.?(fact?.?((n?.?
nil)?.?((if?.?((zerop?.?(n?
.?nil))?.?(1?.?((*?.?(n?.?
((fact?.?((??.?(n?.?(1?.?
nil)))?.?nil))?.?nil)))?.?
nil))))?.?nil))))
泣��燕��Dotted pair notation�

たしかにカッコが謹い�
�田返��

凋綜侏プログラマ�`ならfor猟か
�貌のル�`プで��}を盾く

(defun?fact?(n)
??(let?((i?1)?(r?1))
????(while?(<=?i?n)
??????(setq?r?(*?r?i)
????????????i?(+?i?1))?)
????r?))
ル�`プで��

(defun?.?(fact?.?((n?.?nil)?.?
((let?.?(((i?.?(1?.?nil))?.?
((r?.?(1?.?nil))?.?nil))?.?
((while?.?((<=?.?(i?.?(n?.?
nil)))?.?((setq?.?(r?.?((*?.?
(r?.?(i?.?nil)))?.?(i?.?((+?.?(i?
.?(1?.?nil)))?.?nil)))))?.?
nil)))?.?(r?.?nil))))?.?nil))))
これを泣��燕�に

これではLispに
詳�~郡鬉鯤召紅砲�
いてもおかしくない

(3?(5?(7)?11))
このS塀を�たとき

(3?.?((5?.?((7?.?
nil)?.?(11?.?
nil)))?.?nil))
これを�wばして

こうイメ�`ジする
nil
nil
nil
3
5
7 11

ツリ�`を儔指する
￠畠勣殆を竃薦する
￠畠勣殆を栽�する
￠蒙協の勣殆を冥す
￠ ´
☆ブログねたの��き岷しです

圭隈1
￠ car圭�とcdr圭�をそれぞれ壅｢議に�{る
￠いちばんシンプルな圭隈

(defun?traverse?tree?(tree?func)
??(if?(atom?tree)
??????(or?(null?tree)?(funcall?func?tree))
????(traverse?tree?(car?tree)?func)
????(traverse?tree?(cdr?tree)?func)?))
Emacs Lispで��

??(mapc?#'(lambda?(x)
????????????(if?(atom?x)
????????????????(or?(null?x)?(funcall?func?x))
??????????????(traverse?tree?x?func)?))
????????tree?))
cdr圭�をmapやル�`プにしても
car圭�は壅｢が駅勣

圭隈2
￠ル�`プで�{る
￠ ��銈鰺皺燭離禰`タ��夛に�えておく
￠侮さ單枠ならスタック、嫌單枠ならキュ�`

圭隈3
￠壅｢も翌何デ�`タも聞わない圭隈
￠宥ったコンスセルを篤�乙弔法�120業指�々さ
せながら�Mむ
￠ 3圭��car圭�、cdr圭�、��蝪�
� 3指120業指� = 360業指� � 圷に��

car
cdr
こっち(圷のcar)
に�Mみながら
120業指�
��辰燭藉�
(仟しいcar)

car
cdr
��辰燭藉�
(仟しいcar)
に�Mみながら
120業指�

car cdr
に�Mみながら
120業指�

carを�{っていくだけで
ツリ�`を匯儔する

,. -�\'''''""：：：�c
　　　　　　 (.��_,,,... -?ァ?|　　　　　　　　　　あ´ありのまま書　軟こった並を�すぜ�
　　　　　 |i i|　　 }!　}} /�|
　　　　　　 |l?{　　j}　/,,?//�　　　　　　　〆おれはcarを�{っていたと
　　　　　　　 i|:!�d?_?� u {:}//?　　　　　　　　房ったらいつのまにかツリ�`を匯巓していた〇
　　　　　　　 |? u' }　 ,?　_,!V,? |
　　　　 �?fト?_{?{,ィ'ｅ?　, ?繁　　　　　　　　な´　採を冱ってるのか　わからね�`と房うが
　　　　 /' 　 �d|絏| {?,)｛`/ |<�c?i�f　　　　　　　　おれも採をされたのかわからなかった´
　　　　,?　 � )�c iL? 　u' |　| �dｌ??ゝ
　　　 |�_�　 ? !ニ?　'�:} 　V:::::�c　　　　　　　　�^がどうにかなりそうだった´
　　　 /� 屈屈屈7'T'' �u'　__ /:::::::/��c
　　　/'?r　-！匯?�\?Ｔ?　'"? �::::�-�\ 　�　　　　壅｢だとかスタックだとか
　　 / // 　鴻：? 　/'　　 �:::::�?��c ｛�c　　　　そんなチャチなもんじゃあ　僅じてねえ
　　? ' /　ノ:::::`�`-?___�:::::�/ 　　　 �c　　}
_��惻　/::::::::::::::::::::::::::�`�`-{:::...　　　　　　?　もっと訊ろしいものの頭�[を龍わったぜ´

(defun?traverse?tree:spin?(cns?prev)
??(let?((next?(car?cns)))
????(rplaca?cns?(cdr?cns))
????(rplacd?cns?prev)
????next?))
??(let*?((marker?"dummy")???????????????;?unique?object
?????????(cns?tree)?(prev?marker)?next?)
????(while?(not?(eq?(setq?next
??????????????????????????(traverse?tree:spin?cns?prev)?)
????????????????????marker?))
??????(if?(consp?next)
??????????(setq?prev?cns?cns?next)
????????(or?(null?next)?(funcall?func?next))
????????(setq?prev?next)?))))
Emacs Lispで��

￠圷ネタは、20定ぐらい念に�j�I�bit��の
エッセイかなにかでアイデアを�た��
￠ ��はぜんぜん�えてない
￠ご贋岑の圭、縮えてください

￠ �g樹議ではない
￠いくら�v方侏じゃなくても、�o�jな篤�乙腸掀�呂�
まどき送佩らない�

まとめ
￠カッコは�gなる鯉挫
￠ツリ�`ですた
￠ ‐産勅／圷ネタの秤烏

際際滷

)の瞳鯉

More Related Content

)の瞳鯉