Submission #1779051
Source Code Expand
(use gauche.collection) (define (mh-dist p1 p2) (+ (abs (- (car p1) (car p2))) (abs (- (cdr p1) (cdr p2))))) (define (read-sp n) (let loop ([x n] [sp '()]) (cond [(zero? x) (reverse sp)] [else (loop (- x 1) (cons (let* ([a (read)] [b (read)]) (cons a b)) sp))]))) (define (read-cp m) (let loop ([x m] [cp '()] [n 1]) (cond [(zero? x) cp] [else (loop (- x 1) (cons (cons (let* ([c (read)] [d (read)]) (cons c d)) n) cp) (+ n 1))]))) (define (main args) (let* ([n (read)] [m (read)] [sps (read-sp n)] [cps (read-cp m)]) (for-each (lambda (sp) (print (cdr (find-min cps :compare (lambda (u v) (let ([ud (mh-dist (car u) sp)] [vd (mh-dist (car v) sp)]) (cond [(= ud vd) (< (cdr u) (cdr v))] [else (< ud vd)])))) ))) sps)) 0)
Submission Info
Submission Time | |
---|---|
Task | B - Checkpoints |
User | ducktail |
Language | Scheme (Gauche 0.9.3.3) |
Score | 200 |
Code Size | 1211 Byte |
Status | AC |
Exec Time | 18 ms |
Memory | 4348 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 200 / 200 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | sample_01.txt, sample_02.txt, sample_03.txt |
All | sample_01.txt, sample_02.txt, sample_03.txt, subtask_1_1.txt, subtask_1_2.txt, subtask_1_3.txt, subtask_1_4.txt, subtask_1_5.txt, subtask_1_6.txt, subtask_1_7.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
sample_01.txt | AC | 17 ms | 4348 KB |
sample_02.txt | AC | 17 ms | 4348 KB |
sample_03.txt | AC | 17 ms | 4348 KB |
subtask_1_1.txt | AC | 17 ms | 4348 KB |
subtask_1_2.txt | AC | 18 ms | 4348 KB |
subtask_1_3.txt | AC | 17 ms | 4348 KB |
subtask_1_4.txt | AC | 17 ms | 4348 KB |
subtask_1_5.txt | AC | 17 ms | 4348 KB |
subtask_1_6.txt | AC | 17 ms | 4348 KB |
subtask_1_7.txt | AC | 18 ms | 4348 KB |