elispでfold-rightとかfold-leftとかを定義して、上の問題を解いてみました。 fold-rightを使った場合 (defun fold-right (f e seq) (if seq (funcall f (car seq) (fold-right f e (cdr seq))) e)) (defun compact-number-list (seq) (fold-right (lambda (…

というわけで、コードを貼り付けるテスト。 先日、grass.ml(id:ytqwerty:20080908#p1)で遊ぶためにOCamlをインストールしたので使ってみる。 そんで、これ↓ Scheme どう書く？的 - higepon blog 既にEmacs Lispで書いたんですけどね。まだOCamlはないな、よ…

人様のコメント欄にコードを書くと、インデントが無視されてorz…なので始めてみました。 できればirieというidがよかったんですけど、iRiEです。