練習問題/解答例/うるう年測定/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)))

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2023-02-23 (木) 23:33:35