結果
問題 | No.871 かえるのうた |
ユーザー | ducktail |
提出日時 | 2019-10-07 13:41:44 |
言語 | Scheme (Gauche-0.9.14) |
結果 |
AC
|
実行時間 | 256 ms / 2,000 ms |
コード長 | 1,655 bytes |
コンパイル時間 | 262 ms |
コンパイル使用メモリ | 7,080 KB |
実行使用メモリ | 23,664 KB |
最終ジャッジ日時 | 2023-08-20 09:29:22 |
合計ジャッジ時間 | 6,808 ms |
ジャッジサーバーID (参考情報) |
judge13 / judge11 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 24 ms
12,180 KB |
testcase_01 | AC | 25 ms
14,216 KB |
testcase_02 | AC | 23 ms
12,332 KB |
testcase_03 | AC | 23 ms
12,252 KB |
testcase_04 | AC | 24 ms
12,180 KB |
testcase_05 | AC | 23 ms
12,240 KB |
testcase_06 | AC | 24 ms
12,176 KB |
testcase_07 | AC | 23 ms
12,224 KB |
testcase_08 | AC | 26 ms
13,312 KB |
testcase_09 | AC | 28 ms
13,452 KB |
testcase_10 | AC | 25 ms
12,528 KB |
testcase_11 | AC | 25 ms
12,664 KB |
testcase_12 | AC | 59 ms
15,664 KB |
testcase_13 | AC | 31 ms
13,632 KB |
testcase_14 | AC | 226 ms
21,868 KB |
testcase_15 | AC | 230 ms
23,664 KB |
testcase_16 | AC | 256 ms
21,808 KB |
testcase_17 | AC | 211 ms
21,812 KB |
testcase_18 | AC | 63 ms
15,756 KB |
testcase_19 | AC | 233 ms
21,964 KB |
testcase_20 | AC | 44 ms
13,768 KB |
testcase_21 | AC | 114 ms
18,096 KB |
testcase_22 | AC | 26 ms
12,304 KB |
testcase_23 | AC | 25 ms
12,256 KB |
testcase_24 | AC | 25 ms
12,192 KB |
testcase_25 | AC | 28 ms
13,128 KB |
testcase_26 | AC | 47 ms
13,988 KB |
testcase_27 | AC | 50 ms
14,996 KB |
testcase_28 | AC | 26 ms
12,188 KB |
testcase_29 | AC | 118 ms
17,916 KB |
testcase_30 | AC | 179 ms
21,400 KB |
testcase_31 | AC | 30 ms
13,080 KB |
testcase_32 | AC | 153 ms
18,696 KB |
testcase_33 | AC | 200 ms
21,860 KB |
testcase_34 | AC | 74 ms
15,648 KB |
testcase_35 | AC | 136 ms
18,084 KB |
testcase_36 | AC | 178 ms
21,640 KB |
testcase_37 | AC | 123 ms
20,064 KB |
testcase_38 | AC | 233 ms
21,872 KB |
testcase_39 | AC | 219 ms
21,108 KB |
testcase_40 | AC | 131 ms
19,284 KB |
testcase_41 | AC | 25 ms
12,232 KB |
testcase_42 | AC | 136 ms
19,624 KB |
testcase_43 | AC | 25 ms
12,204 KB |
testcase_44 | AC | 25 ms
12,288 KB |
testcase_45 | AC | 29 ms
12,716 KB |
testcase_46 | AC | 27 ms
12,288 KB |
testcase_47 | AC | 25 ms
12,196 KB |
testcase_48 | AC | 27 ms
12,320 KB |
ソースコード
(define (solve n k vx va) (let loop ([il (- k 1)] [ir (- k 1)] [rl (- (vector-ref vx (- k 1)) (vector-ref va (- k 1)))] [rr (+ (vector-ref vx (- k 1)) (vector-ref va (- k 1)))]) (let* ([nir (+ ir 1)] [nil (- il 1)] [rfir (and (> n nir) (>= rr (vector-ref vx nir)))] [lfir (and (<= 0 nil) (<= rl (vector-ref vx nil)))]) (cond [(and rfir lfir) (loop nil nir (min rl (- (vector-ref vx nil) (vector-ref va nil)) (- (vector-ref vx nir) (vector-ref va nir))) (max rr (+ (vector-ref vx nir) (vector-ref va nir)) (+ (vector-ref vx nil) (vector-ref va nil))))] [rfir (loop il nir (min rl (- (vector-ref vx nir) (vector-ref va nir))) (max rr (+ (vector-ref vx nir) (vector-ref va nir))))] [lfir (loop nil ir (min rl (- (vector-ref vx nil) (vector-ref va nil))) (max rr (+ (vector-ref vx nil) (vector-ref va nil))))] [else (- ir il -1)]) ))) (define (main args) (let* ([n (read)] [k (read)] [vx (vector-tabulate n (^_ (read)))] [va (vector-tabulate n (^_ (read)))]) (print (solve n k vx va))) 0)