結果

問題 No.253 ロウソクの長さ
コンテスト
ユーザー YOS G-spec
提出日時 2018-10-19 21:05:38
言語 Scheme
(Gauche-0.9.15)
結果
TLE  
実行時間 -
コード長 502 bytes
コンパイル時間 118 ms
コンパイル使用メモリ 6,816 KB
実行使用メモリ 48,136 KB
最終ジャッジ日時 2024-07-16 16:16:19
合計ジャッジ時間 6,861 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other TLE * 1 -- * 35
権限があれば一括ダウンロードができます

ソースコード

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)
			(let ((chk (read-line)))
				(if(string=? "1" chk) (set! numMin chkNum)
				(if(string=? "-1" chk) (set! numMax chkNum)
				(begin
					(format #T "! ~d~%" (+ chkNum turn))
					(return)
				)))
				(when(< 0 numMin) (set! numMin (- numMin 1)))
				(set! numMax (- numMax 1))
				(loop (+ 1 turn))
			)
		)
	)))
)
0