[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [bep] learning lisp: recursive
- To: bep@argv.org
- Subject: Re: [bep] learning lisp: recursive
- From: TAKAHASHI Naoto <ntakahas@m17n.org>
- Date: Mon, 4 Jun 2001 10:42:15 +0900 (JST)
- Delivered-To: mailing list bep@argv.org
- Mailing-List: contact bep-help@argv.org; run by ezmlm
- User-Agent: SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.2 Emacs/21.0.104 (sparc-sun-solaris2.8) MULE/5.0 (SAKAKI)
n高橋です。ちょっとヒントを。
Reiko TAKAHASHI (高橋玲子)writes:
> もうひとつ、また首をつっこんでしまうので、もし万が一、今の私にでもわか
> りそうだったら……、
> } (defun n (n) (if (= n 1) 1 (* n (n (1- n)))))
これはふざけて、わざとわかりにくく書いてあります。
親切な教科書ならば、
(defun fact (n)
(if (= n 1)
1
(* n (fact (- n 1)))))
と書くところでしょう。計算機にとってはどちらも同じ意味です。
--
TAKAHASHI Naoto
ntakahas@...
http://www.m17n.org/ntakahas/