結果

問題 No.253 ロウソクの長さ
ユーザー YOS G-specYOS G-spec
提出日時 2018-10-19 21:10:12
言語 Scheme
(Gauche-0.9.14)
結果
AC  
実行時間 48 ms / 2,000 ms
コード長 516 bytes
コンパイル時間 119 ms
コンパイル使用メモリ 5,328 KB
実行使用メモリ 30,176 KB
平均クエリ数 21.22
最終ジャッジ日時 2023-09-24 01:59:45
合計ジャッジ時間 4,180 ms
ジャッジサーバーID
（参考情報） 		judge15 / judge12
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 48 ms
27,772 KB
testcase_01 AC 43 ms
28,104 KB
testcase_02 AC 42 ms
27,508 KB
testcase_03 AC 42 ms
27,436 KB
testcase_04 AC 41 ms
27,256 KB
testcase_05 AC 40 ms
27,620 KB
testcase_06 AC 44 ms
27,672 KB
testcase_07 AC 44 ms
27,324 KB
testcase_08 AC 43 ms
27,588 KB
testcase_09 AC 41 ms
27,580 KB
testcase_10 AC 43 ms
27,428 KB
testcase_11 AC 44 ms
27,572 KB
testcase_12 AC 44 ms
30,176 KB
testcase_13 AC 43 ms
28,188 KB
testcase_14 AC 42 ms
27,600 KB
testcase_15 AC 42 ms
27,448 KB
testcase_16 AC 42 ms
27,812 KB
testcase_17 AC 41 ms
27,620 KB
testcase_18 AC 42 ms
27,548 KB
testcase_19 AC 42 ms
27,876 KB
testcase_20 AC 43 ms
27,428 KB
testcase_21 AC 41 ms
27,856 KB
testcase_22 AC 42 ms
27,960 KB
testcase_23 AC 43 ms
28,136 KB
testcase_24 AC 42 ms
27,456 KB
testcase_25 AC 43 ms
28,120 KB
testcase_26 AC 43 ms
27,336 KB
testcase_27 AC 43 ms
27,756 KB
testcase_28 AC 43 ms
28,096 KB
testcase_29 AC 43 ms
27,848 KB
testcase_30 AC 44 ms
27,472 KB
testcase_31 AC 43 ms
27,732 KB
testcase_32 AC 44 ms
29,556 KB
testcase_33 AC 43 ms
27,964 KB
testcase_34 AC 42 ms
27,572 KB
testcase_35 AC 44 ms
27,444 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