結果

問題 No.253 ロウソクの長さ
ユーザー YOS G-specYOS G-spec
提出日時 2018-10-19 21:10:12
言語 Scheme
(Gauche-0.9.14)
結果
AC  
実行時間 51 ms / 2,000 ms
コード長 516 bytes
コンパイル時間 173 ms
コンパイル使用メモリ 6,816 KB
実行使用メモリ 32,856 KB
平均クエリ数 21.22
最終ジャッジ日時 2024-07-17 02:00:19
合計ジャッジ時間 4,336 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 51 ms
32,712 KB
testcase_01 AC 50 ms
32,728 KB
testcase_02 AC 48 ms
32,328 KB
testcase_03 AC 47 ms
32,472 KB
testcase_04 AC 47 ms
32,384 KB
testcase_05 AC 47 ms
32,472 KB
testcase_06 AC 49 ms
32,600 KB
testcase_07 AC 48 ms
32,472 KB
testcase_08 AC 48 ms
32,600 KB
testcase_09 AC 46 ms
32,344 KB
testcase_10 AC 48 ms
32,216 KB
testcase_11 AC 48 ms
32,728 KB
testcase_12 AC 48 ms
32,728 KB
testcase_13 AC 47 ms
32,472 KB
testcase_14 AC 46 ms
32,216 KB
testcase_15 AC 48 ms
32,728 KB
testcase_16 AC 48 ms
32,344 KB
testcase_17 AC 48 ms
32,728 KB
testcase_18 AC 49 ms
32,344 KB
testcase_19 AC 49 ms
32,728 KB
testcase_20 AC 49 ms
32,856 KB
testcase_21 AC 49 ms
32,600 KB
testcase_22 AC 47 ms
32,344 KB
testcase_23 AC 49 ms
32,208 KB
testcase_24 AC 48 ms
32,600 KB
testcase_25 AC 48 ms
32,344 KB
testcase_26 AC 49 ms
32,216 KB
testcase_27 AC 49 ms
32,600 KB
testcase_28 AC 49 ms
32,856 KB
testcase_29 AC 48 ms
32,728 KB
testcase_30 AC 48 ms
32,600 KB
testcase_31 AC 48 ms
32,472 KB
testcase_32 AC 49 ms
32,600 KB
testcase_33 AC 47 ms
32,584 KB
testcase_34 AC 47 ms
31,960 KB
testcase_35 AC 48 ms
32,728 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

(let (
	(numMin 10)
	(numMax 1000000001)
)
	(call/cc(lambda(return)(let loop((turn 0))
		(let ((chkNum (if(= 0 turn) 100 (floor(/(+ numMin numMax) 2)))))
			(format #T "? ~d~%" chkNum)(flush)
			(let ((chk (read-line)))
				(if(string=? "1" chk) (set! numMin chkNum)
				(if(string=? "-1" chk) (set! numMax chkNum)
				(begin
					(format #T "! ~d~%" (+ chkNum turn))(flush)
					(return)
				)))
				(when(< 0 numMin) (set! numMin (- numMin 1)))
				(set! numMax (- numMax 1))
				(loop (+ 1 turn))
			)
		)
	)))
)
0