結果
問題 |
No.607 開通777年記念
|
ユーザー |
|
提出日時 | 2017-12-28 22:19:13 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 1,974 ms / 2,000 ms |
コード長 | 639 bytes |
コンパイル時間 | 37 ms |
コンパイル使用メモリ | 6,952 KB |
実行使用メモリ | 20,736 KB |
最終ジャッジ日時 | 2024-12-21 09:26:30 |
合計ジャッジ時間 | 5,567 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 10 |
ソースコード
(define (three-seven? n v) (let loop ([c 0] [l 0] [r 0]) (cond [(= c 777) #t] [(> c 777) (loop (- c (vector-ref v l)) (+ l 1) r)] [(and (< c 777) (= r n)) #f] [else (loop (+ c (vector-ref v r)) l (+ r 1))]))) (define (main args) (let* ([n (read)] [m (read)]) (print (let loop ([x m] [v (make-vector n 0)]) (cond [(zero? x) "NO"] [else (let* ([av (vector-tabulate n (lambda (_) (read)))] [nv (vector-map + v av)]) (if (three-seven? n nv) "YES" (loop (- x 1) nv)))])))) 0)