結果

問題 No.253 ロウソクの長さ
ユーザー YOS G-spec
提出日時 2018-10-19 21:10:12
言語 Scheme
(Gauche-0.9.15)
結果
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
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 36
権限があれば一括ダウンロードができます

ソースコード

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