TSabc 発言

Bruce.です。

RがあったのでL(isp)で

((lambda (m)
  ((lambda (f x)
    (if (null x)
	1
      (let ((r (car x)))
	(setq x (cdr x))
	(while x
	  (setq r (funcall f r (car x))
		x (cdr x)))
	r))) #'* ((lambda (n)
		    (let ((r nil))
		      (while (< 0 n)
			(setq r (cons n r)
			      n (- n 1)))
		      r)) m))) 15)
1307674368000


無用にlambdaにしてたりしますが :)
多分Common Lispなら動くはず。

-- 
木村浩一/KIMURA Koichi
 I thought what I'd do was, I'd pretend I was one of those deaf-mutes or
shoud I?
 mail kbk at kt.rim.or.jp
 web  www.kt.rim.or.jp/~kbk/zakkicho/index.html