結果

問題 No.338 アンケート機能
コンテスト
ユーザー はむ吉🐹
提出日時 2016-03-14 00:44:28
言語 Scheme
(Gauche-0.9.15)
結果
AC  
実行時間 162 ms / 2,000 ms
コード長 1,006 bytes
コンパイル時間 200 ms
コンパイル使用メモリ 5,504 KB
実行使用メモリ 25,728 KB
最終ジャッジ日時 2024-11-08 03:05:54
合計ジャッジ時間 7,158 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 28
権限があれば一括ダウンロードができます

ソースコード

diff # 

(use srfi-42) ;; 内包表記の使用に必要
(define max-a-b 300) ;; 検索対象とするa, bの上限
;; 四捨五入の関数
(define (round-up-on-5 x) (truncate->exact (+ x (/ 1 2))))
(define (comp-min-a+b a0 b0)
    (min-ec ;;内包表記。以下の計算の結果のうちで、最小のものを返す
        (: a 0 max-a-b) ;;aを[0, max-a-b)で動かす
        (: b 0 max-a-b) ;;bを[0, max-a-b)で動かす
        (let
            ((s (+ a b)))
            (if
                (and
                    (not (and (= a 0) (= b 0)))
                    (= a0 (round-up-on-5 (/ (* 100 a) s)))
                    (= b0 (round-up-on-5 (/ (* 100 b) s)))
                )
                s ;; 条件に合えば最小値の候補に入れる
                1000 ;; 条件が満たされなければ適当な大きい数を返す
            )
        )
    )
)

(let*
    ((a0 (read)) (b0 (read))) ;;A, Bを読み取る
    (print (comp-min-a+b a0 b0)) ;;計算結果を表示し改行する
)
0