yuchan · December 18, 2014 05:36
diff --git a/fizzbuzz.el b/fizzbuzz.el
 (defun fizzbuzz (n)
  (cond
   ((= (% n 15) 0) "FizzBuzz")
   ((= (% n 5) 0) "Buzz")
   ((= (% n 3) 0) "Fizz")
   (t n)))				; => fizzbuzz

 (fizzbuzz 10)				; => "Buzz"
 (fizzbuzz 2)				; => 2

diff --git a/ifstatement.el b/ifstatement.el
 (setq a "nothacker")			; => "nothacker"
 (cond
 ((eq a "hacker") 'foo)
 (t "default"))				; => "default"

diff --git a/while.el b/while.el
 (setq num 0)				; => 0

 (while (< num 4)
  (princ (format "Iteration %d." num))
  (setq num (1+ num))
  )					; => nil



diff --git a/xmp.el b/xmp.el
 (+ 3 4)					; => 7