projects
/
fizzbuzz.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
文字列「FizzBuzz」の長さ取得方法を変更
[fizzbuzz.git]
/
mod
/
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))))