EmacsLisp版を追加

diff --git a/emacslisp/.gitignore b/emacslisp/.gitignore
new file mode 100644 (file)
index 0000000..c531d98
--- /dev/null
+++ b/emacslisp/.gitignore
@@ -0,0 +1 @@
+*.elc

diff --git a/emacslisp/fizzbuzz.el b/emacslisp/fizzbuzz.el
new file mode 100644 (file)
index 0000000..a2e18c2
--- /dev/null
+++ b/emacslisp/fizzbuzz.el
@@ -0,0 +1,19 @@
+;; fizzbuzz.el
+;; ターミナルで「emacs --batch --script fizzbuzz.el」を実行
+(defun fizzbuzz (num)
+  (let
+      ((fizz (= (% num 3) 0))
+       (buzz (= (% num 5) 0)))
+    (cond
+     ((and fizz buzz) "FizzBuzz")
+     (fizz "Fizz")
+     (buzz "Buzz")
+     (t num))))
+
+(let
+    (i (min 1) (max 100))
+  (setq i min)
+  (while (<= i max)
+    (princ (fizzbuzz i))
+    (princ "\n")
+    (setq i (1+ i))))