Hatena::Grouprubyist

たばさの RSSフィード

09/26(金) 2008

emacs lisp練習

| emacs lisp練習 - たばさの を含むブックマーク はてなブックマーク - emacs lisp練習 - たばさの


(defun mymax (li)
  (let ((a (car li))(b (cadr li)))
    (if (> (length li) 1)
        (progn
          (if (> a b)
              (setq b a))
          (mymax (cons b (cddr li))))
      (car li))))

トラックバック - http://rubyist.g.hatena.ne.jp/hatecha/20080926
カレンダー
<< 2008/09 >>
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30
archive Error : RSSが取得できませんでした。