TeXでFizzBuzz
shibuya.lisp の テクニカルトーク#5 で、はやみずさんが「LaTeXでFizzBuzzを書く気になるか？」的な話を一瞬されたので反応しておく。そう言われて始めて書いてみようかと思うくらいだから、「書く気になるか？」という問いに対する答えは否定的なものであっていると思う。\newcount\a \newcount\b \newcount\c \newcount\n \newcount\i \newif\ifdivisable \def\fizzbuzz#1{% \n=#1 \i=1 \loop \ifnum\i<\n \printffizzbuzz \advance \i by 1 \repeat} \def\printffizzbuzz{% \testdivisable{\i}{15} \ifdivisable fizzbuzz\par \fi \testdivisable{
Emacs Lisp で FizzBuzz - あどけない話
Emacs Lisp の習得を目指す誰かの参考になるかもしれないので、僕なりの解答を書いておきます。 アルゴリズムの実装 繰り返しと仕事は分離したいので、まず仕事の部分を定義します。 (defun fizzbuzz (num) (cond ((= (% num 15) 0) "FizzBuzz") ((= (% num 3) 0) "Fizz") ((= (% num 5) 0) "Buzz") (t num))) (fizzbuzz 1) ;; => 1 (fizzbuzz 3) ;; => "Fizz" (fizzbuzz 5) ;; => "Buzz" (fizzbuzz 15) ;; => "FizzBuzz" whileループ Emacs Lisp で一番現実的なのは、while 分による繰り返しです。 (defun fizzbuzz1 (limit) (let ((i 1) r
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
