練習問題/解答例/FizzBuzz/lisp の履歴(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• 練習問題/解答例/FizzBuzz/lisp へ行く。
  • 1 (2009-04-13 (月) 20:56:48)

(defun FizzBuzz (n)
  (if (> n 0)
      (progn
        (print (FB (- n 1)))
        (if (= (mod n 15) 0)
            'FizzBuzz
          (if (= (mod n 5) 0)
              'Buzz
            (if (= (mod n 3) 0)
                'Fizz
              n))))
    0))