結果

問題 No.253 ロウソクの長さ
ユーザー YOS G-specYOS G-spec
提出日時 2018-10-19 21:21:33
言語 Clojure(Beta)
(1.11.2)
結果
TLE  
(最新)
AC  
(最初)
実行時間 -
コード長 386 bytes
コンパイル時間 179 ms
コンパイル使用メモリ 6,816 KB
実行使用メモリ 91,152 KB
平均クエリ数 19.97
最終ジャッジ日時 2024-07-16 16:19:28
合計ジャッジ時間 74,947 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 TLE -
testcase_01 TLE -
testcase_02 AC 1,990 ms
91,152 KB
testcase_03 AC 1,964 ms
89,420 KB
testcase_04 AC 1,928 ms
90,092 KB
testcase_05 AC 1,900 ms
88,968 KB
testcase_06 AC 1,916 ms
89,988 KB
testcase_07 AC 1,959 ms
89,300 KB
testcase_08 AC 1,906 ms
90,116 KB
testcase_09 AC 1,897 ms
89,564 KB
testcase_10 AC 1,904 ms
89,144 KB
testcase_11 AC 1,926 ms
89,544 KB
testcase_12 AC 1,937 ms
89,844 KB
testcase_13 AC 1,922 ms
88,908 KB
testcase_14 AC 1,932 ms
89,016 KB
testcase_15 AC 1,958 ms
89,952 KB
testcase_16 AC 1,948 ms
89,476 KB
testcase_17 AC 1,956 ms
89,496 KB
testcase_18 AC 1,984 ms
89,024 KB
testcase_19 AC 1,973 ms
89,808 KB
testcase_20 AC 1,957 ms
89,492 KB
testcase_21 AC 1,941 ms
90,036 KB
testcase_22 AC 1,969 ms
89,064 KB
testcase_23 AC 1,953 ms
89,096 KB
testcase_24 TLE -
testcase_25 AC 1,972 ms
89,720 KB
testcase_26 AC 1,984 ms
88,728 KB
testcase_27 AC 1,949 ms
88,984 KB
testcase_28 AC 1,953 ms
90,244 KB
testcase_29 AC 1,975 ms
89,228 KB
testcase_30 AC 1,999 ms
89,272 KB
testcase_31 AC 1,969 ms
88,876 KB
testcase_32 AC 1,957 ms
89,252 KB
testcase_33 AC 1,980 ms
89,116 KB
testcase_34 AC 1,975 ms
90,064 KB
testcase_35 AC 1,943 ms
89,244 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

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