エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント1件
- 注目コメント
- 新着コメント
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
対話によるCommon Lisp入門 29 末尾再帰 - by shigemk2
(defun gcd$ (m n) (if (= (mod m n) 0) n (gcd$ n (mod m n)))) [1]> (load "gcd.l") ;; Loading file ... (defun gcd$ (m n) (if (= (mod m n) 0) n (gcd$ n (mod m n)))) [1]> (load "gcd.l") ;; Loading file gcd.l ... ;; Loaded file gcd.l T [2]> (gcd$ 300 45) 15 [3]> (trace gcd$) ;; Tracing function GCD$. (GCD$) [4]> (gcd$ 300 45) 1. Trace: (GCD$ '300 '45) 2. Trace: (GCD$ '45 '30) 3. Trace: (GCD$ '30 '15) 3. Trace: GCD$ ==> 15 2. Trace: GCD$ ==> 15 1. Trace: GCD$ ==> 15 15 [5]> (gcd$ 30 18) 1. Trace: (GCD$
2013/04/09 リンク