[xyzzy:02492] Re: Common の質問

[YAMAMOTO Shinji <sinj@xxxxxxxxxxxx>]

Ｃａｋｅさん、こんにちは、山本です。


 On [xyzzy:02491] Common の質問,
 at Mon, 10 May 1999 06:09:59 +0900, cake-smd@xxxxxxxxxxxxx wrote:

> my-sum0 っていうのを使わないようにするには、いろいろな方法があると思いま
> すが、my-sum の中で my-sum0 に相当するλ式を使うのはどうだろうと思ったら
> λ式の中で再帰(自分自身を呼ぶ)する方法が分からないことに気づきました。
> だって呼ぼうにも名前がないんですよね。
> 

こういう事でしょうか？

(defun my-sum (&rest arg)
  (let (my-sum0)
    (setq my-sum0 #'(lambda (&rest L)
		      (if (consp L)
			  (if (null (cdr L))
			      (car L)
			    (+ (car L) (apply my-sum0 (cdr L))))
			nil)))
    (apply my-sum0 arg)))

-- 
山本真二   sinj@xxxxxxxxxxxx