アーティクル

#99 Article 961 Posted at 1995/12/03 03:38:06 by Mick'n (MAP1406) [SAHOU.1]

Subject: Re:*11 プログラミングお作法の話 /960 .... /941 /940

Emacs-Lisp 版。以下の function を evaluate して、(nyan 10) などを
eval-last-sexp などしてください。

(defun nyan (arg)
  (insert-string "\n")
  (let ((num 1))
    (while (<= num arg)
      (cond ((or (= num 3) (= num 5) (= num arg))
             (let ((i 0))
               (while (< i num)
                 (insert-string "にゃん")
                 (setq i (1+ i)))
               (insert-string "\n")))
            (t
             (insert-string num "\n")))
      (setq num (1+ num)))))

特徴: C とかを書く感覚で書いている。

  Mick'n (MAP1406)