emacslisp/fizzbuzz.el

   1 ;; fizzbuzz.el
   2 ;; ターミナルで「emacs --batch --script fizzbuzz.el」を実行
   3 (defun fizzbuzz (num)
   4   (let
   5       ((fizz (= (% num 3) 0))
   6        (buzz (= (% num 5) 0)))
   7     (cond
   8      ((and fizz buzz) "FizzBuzz")
   9      (fizz "Fizz")
  10      (buzz "Buzz")
  11      (t num))))
  12
  13 (let
  14     (i (min 1) (max 100))
  15   (setq i min)
  16   (while (<= i max)
  17     (princ (fizzbuzz i))
  18     (princ "\n")
  19     (setq i (1+ i))))