projects
/
fizzbuzz.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a2e18c2b8bbb97ad8412a286bb96fd89c2222e0b
[fizzbuzz.git]
/
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))))