🚀 go-pugleaf

Mick-Lisp で factorial(階乗) を定義すると以下のようになります。

(defun-naive dmap-times (%MF &rest %LL)
  (dmap-accumulate '* 1 %MF %LL nil nil t))

(generate-dmap-combiner "times"  'dmap-times  'dmap-times)

(defun factorial (n)
  (if (< n 0) (error "invalid argument"))
  (times-for (n) (1+ n))
  )


(factorial 0)
1

(factorial 3)
6

(factorial 5)
120

＃0 の階乗って、1 でいいのかな？

--
戸梶  明夫