練習問題/解答例/FizzBuzz/lisp
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
(defun FizzBuzz (n)
(if (> n 0)
(progn
(print (FizzBuzz (- n 1)))
(if (= (mod n 15) 0)
'FizzBuzz
(if (= (mod n 5) 0)
'Buzz
(if (= (mod n 3) 0)
'Fizz
n))))
0))
終了行:
(defun FizzBuzz (n)
(if (> n 0)
(progn
(print (FizzBuzz (- n 1)))
(if (= (mod n 15) 0)
'FizzBuzz
(if (= (mod n 5) 0)
'Buzz
(if (= (mod n 3) 0)
'Fizz
n))))
0))
ページ名:
