練習問題/解答例/うるう年測定/Scheme
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[練習問題/解答例/うるう年測定/Scheme]]
;;割り切れるかどうかを判別
(define (divisible? a b)
(zero? (modulo a b)))
;;閏年判定
(define (intercalary? year)
(if (divisible? year 100)
(if (divisible? year 400)
#t
#f)
(if (divisible? year 4)
#t
#f)))
終了行:
[[練習問題/解答例/うるう年測定/Scheme]]
;;割り切れるかどうかを判別
(define (divisible? a b)
(zero? (modulo a b)))
;;閏年判定
(define (intercalary? year)
(if (divisible? year 100)
(if (divisible? year 400)
#t
#f)
(if (divisible? year 4)
#t
#f)))
ページ名:
