結果
問題 | No.607 開通777年記念 |
ユーザー | keiden |
提出日時 | 2024-09-21 18:46:44 |
言語 | Scheme (Gauche-0.9.14) |
結果 |
TLE
|
実行時間 | - |
コード長 | 782 bytes |
コンパイル時間 | 49 ms |
コンパイル使用メモリ | 6,688 KB |
実行使用メモリ | 39,640 KB |
最終ジャッジ日時 | 2024-09-21 18:46:52 |
合計ジャッジ時間 | 6,721 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
テストケース
テストケース表示入力 | 結果 | 実行時間 実行使用メモリ |
---|---|---|
testcase_00 | AC | 124 ms
34,560 KB |
testcase_01 | AC | 125 ms
29,040 KB |
testcase_02 | AC | 123 ms
28,800 KB |
testcase_03 | AC | 125 ms
28,928 KB |
testcase_04 | AC | 124 ms
28,736 KB |
testcase_05 | AC | 123 ms
29,056 KB |
testcase_06 | AC | 126 ms
28,928 KB |
testcase_07 | AC | 844 ms
32,644 KB |
testcase_08 | AC | 127 ms
28,800 KB |
testcase_09 | AC | 190 ms
29,824 KB |
testcase_10 | AC | 194 ms
29,952 KB |
testcase_11 | TLE | - |
testcase_12 | -- | - |
ソースコード
(use srfi.217) (define yuki607 (let* ( (n-m (map string->number (string-split (read-line) " "))) (n (car n-m)) (m (cadr n-m)) (r (make-vector n 0)) (ok 0) ) (define (process-line line) (let* ( (a (map string->number (string-split line " "))) (d (iset 0)) (c 0) ) (for-each (lambda (i) (vector-set! r i (+ (vector-ref r i) (list-ref a i))) (set! c (+ c (vector-ref r i))) (when (iset-member d (- c 777) #f) (set! ok 1)) (set! d (iset-adjoin! d c))) (iota n) ))) (for-each (lambda (_) (process-line (read-line))) (iota m)) (if (= ok 1) (display "YES") (display "NO"))))