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
AC × 3
AC × 10
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