kappatottaotokoの日記： Lispでの再帰

久しぶりの日記 やさしいLisp入門でLispの再帰が出てきたのですが、 よく分かりませんでした。 Ｃの再帰のときも悩んだのでロジックに弱いなぁと再度実感しています。 どなたか識者の方ヒントを教えてくれませんか？ ・階乗を計算すプログラムです。

(defun myFactorial (myInteger)
    (if (not (typep myInteger 'integer))
        0
        (if (<= myInteger 0)
            1
            (* myInteger
                (myFactorial (- myInteger 1))))))

識者ではないですが

[130R (31126)]

どのあたりが分からないのかわかりませんが、このコードはあんまり良くない気もします。

    (if (not (typep myInteger 'integer))
        0

ここは型チェックなので要りません。で、残りの部分で一つずつ数字を当てて展開してみてはどうでしょうか

(defun myFactorial (myInteger)
  (if (<= myInteger 0)
      1
    (* myInteger
       (myFactorial (- myInteger 1)))))

再帰の説明は英語ですがLittle Schemerが丁寧です。

Re:識者ではないですが

[kappatottaotoko (32670)]

コメントありがとうございます。 さっそくLittle Schemer 買ってみました。 が、atomとかもはっきり覚えてないので まだまだ勉強が足りないようです。