結果
問題 |
No.2757 Pin Game
|
ユーザー |
|
提出日時 | 2024-05-18 20:18:53 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 381 ms / 2,000 ms |
コード長 | 738 bytes |
コンパイル時間 | 284 ms |
コンパイル使用メモリ | 7,080 KB |
実行使用メモリ | 32,964 KB |
最終ジャッジ日時 | 2024-12-20 16:32:25 |
合計ジャッジ時間 | 2,625 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 10 |
ソースコード
(define-syntax readm (syntax-rules (sym str list vec) [(_ list n t ...) (unfold (pa$ = n) (^_ (readm t ...)) (pa$ + 1) 0)] [(_ vec n t ...) (vector-tabulate n (^_ (readm t ...)))] [(_ sym) (read)] [(_ str) (symbol->string (read))])) (define (solve n k vx) (let1 vc (make-vector (+ n 1) 0) (let loop ([i 0] [j 1]) (cond [(> j n) (vector-ref vc n)] [(>= (- (vector-ref vx (- j 1)) (vector-ref vx i)) k) (loop (+ i 1) j)] [else (vector-set! vc j (+ 1 (vector-ref vc i))) (loop i (+ j 1))])))) (define (main args) (let* ([n (read)] [k (read)] [vx (readm vec n sym)]) (print (solve n k vx))) 0)