結果

問題 No.253 ロウソクの長さ
ユーザー YOS G-specYOS G-spec
提出日時 2018-10-19 21:06:15
言語 Clojure(Beta)
(1.11.2)
結果
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
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 TLE -
testcase_01 AC 1,923 ms
90,392 KB
testcase_02 AC 1,949 ms
89,244 KB
testcase_03 AC 1,951 ms
89,464 KB
testcase_04 TLE -
testcase_05 AC 1,960 ms
89,200 KB
testcase_06 AC 1,930 ms
89,832 KB
testcase_07 AC 1,928 ms
89,312 KB
testcase_08 AC 1,943 ms
90,800 KB
testcase_09 AC 1,985 ms
89,584 KB
testcase_10 AC 1,977 ms
90,424 KB
testcase_11 AC 1,964 ms
89,304 KB
testcase_12 AC 1,963 ms
88,812 KB
testcase_13 AC 1,967 ms
90,228 KB
testcase_14 AC 1,925 ms
89,884 KB
testcase_15 AC 1,913 ms
89,440 KB
testcase_16 AC 1,945 ms
89,684 KB
testcase_17 AC 1,951 ms
89,404 KB
testcase_18 AC 1,967 ms
88,972 KB
testcase_19 AC 1,912 ms
88,688 KB
testcase_20 TLE -
testcase_21 AC 1,956 ms
89,788 KB
testcase_22 AC 1,963 ms
89,776 KB
testcase_23 AC 1,949 ms
89,044 KB
testcase_24 AC 1,915 ms
89,068 KB
testcase_25 AC 1,922 ms
89,668 KB
testcase_26 AC 1,955 ms
88,860 KB
testcase_27 AC 1,979 ms
88,864 KB
testcase_28 AC 1,944 ms
89,436 KB
testcase_29 AC 1,961 ms
90,572 KB
testcase_30 AC 1,964 ms
90,396 KB
testcase_31 AC 1,929 ms
88,200 KB
testcase_32 AC 1,944 ms
89,248 KB
testcase_33 TLE -
testcase_34 AC 1,948 ms
89,456 KB
testcase_35 AC 1,968 ms
89,260 KB
権限があれば一括ダウンロードができます

ソースコード

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