#99 Article 969 Posted at 1995/12/03 18:52:49 by ＢＡＡ (MAP5104) [SAHOU.1]
Subject: Re:*8 プログラミングお作法の話 /968 .... /941 /940
いま、一番手近にある処理系の emacs lisp です。
----------------------------------------
(defun にゃんにゃん (n)
(if (>= 0 n)
nil
(princ "にゃん")
(にゃんにゃん (1- n))))
(defun にゃん (n &optional not-first)
(if (>= 0 n)
nil
(にゃん (1- n) t)
(if (or (not not-first)
(= n 3)
(= n 5))
(にゃんにゃん n)
(princ n))
(princ "\n")))
----------------------------------------
lisp なので、再帰してみました。
あんまり特徴の無い書き方になっています。
ＢＡＡ