階乗を作る 再帰処理で階乗を作る 再帰の定石 ●終了条件を調べ、終了なら初期値を返す ●引数に対して処理をする ●処理結果を引数として自分自身を呼び出す (defun factorial-test (n) (cond ((zerop n) 1) (t (* n (factorial (1- n)))))) (factorial 4) 差…

and と or Emacs Lisp メモ ;; 引数がリストかどうかを評価 (defun listp (x) (or (null x) (consp x))) (setq kin '(a b c d)) (listp kin) ; => t 閏年計算をandとorで書いてみる。 4で割り切れたら閏年 ただし100で割り切れたら普通の年 もし100で割り切…

整数の比較 Emacs Lispのメモ ;; 引数である整数がマイナスかどうかを評価 (defun Minusp (n) (cond ((< n 0) t) (t nil))) (Minusp -10) condを使う。 condは全ての条件を上から順番に評価する。 評価の結果、条件がtであれば、条件の中の処理を全て処理し…