shigemk2 https://blog.hatena.ne.jp/shigemk2/ by shigemk2 https://www.shigemk2.com/ 読書ノート ;; m to the Nth power (defun expt$ (m n) (if (= n 0) 1 (* (expt$ m (- n 1)) m))) ;; number of k-combinations (defun C (n k) (if (= k 0) 1 (* (/ n k) (C (- n 1) (- k 1))))) ;; number of k-combinations 2 (defun C2 (n k) (if (= k 0) 1 (if (= n k) 1 (+ (C (- n 1) (- k 1)) (C (- n 1) k))))) 結果 [28]> (exp… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.shigemk2.com%2Fentry%2F20130408%2F1365351242" title="対話によるCommon Lisp入門 28 再帰 - by shigemk2" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2013-04-08 01:14:02 rich https://www.shigemk2.com/entry/20130408/1365351242 1.0 100%