結果

問題 No.253 ロウソクの長さ
ユーザー YOS G-spec
提出日時 2018-10-19 21:06:15
言語 Clojure(Beta)
(1.12.0)
結果
TLE  
(最新)
AC  
(最初)
実行時間 -
コード長 484 bytes
コンパイル時間 96 ms
コンパイル使用メモリ 6,820 KB
実行使用メモリ 115,484 KB
平均クエリ数 18.42
最終ジャッジ日時 2024-07-16 16:18:03
合計ジャッジ時間 75,731 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 32 TLE * 4
権限があれば一括ダウンロードができます

ソースコード

diff # 

(let [
	numMin (volatile! 10)
	numMax (volatile! 1000000001)
]
	(loop[turn 0]
		(let [chkNum (if(= 0 turn) 100 (int(/(+ @numMin @numMax) 2)))]
			(println "?" chkNum)(flush)
			(let [chk (read-line)]
				(if(= "1" chk) (vreset! numMin chkNum)
				(when(= "-1" chk) (vreset! numMax chkNum)))
				(if(= "0" chk)(do
					(println "!" (+ chkNum turn))(flush)
				)
				(do
					(when(< 0 @numMin) (vswap! numMin dec))
					(vswap! numMax dec)
					(recur (inc turn))
				))
			)
		)
	)
)
0