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


トップ   編集 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS