- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
158 ：デフォルトの名無しさん[sage]：2015/05/17(日) 12:52:33.45 ID:nYjMnLoA - >>135 Emacs Lisp
(require 'cl-lib)
cl-lib
(defun FizzBuzz (i)
(let ((aaa (list nil nil 'Fizz nil 'Buzz 'Fizz nil nil 'Fizz 'Buzz nil 'Fizz nil nil 'FizzBuzz)))
(rplacd (last aaa) aaa)
(let ((bbb (nth i (cons nil aaa))))
(if bbb bbb i))))
FizzBuzz
(cl-loop for i from 1 to 30 collect (FizzBuzz i))
(1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19 Buzz Fizz 22 23 Fizz Buzz 26 Fizz 28 29 FizzBuzz)
|
|