Submission #1442768
Source Code Expand
let rec search x y m cd index ans = if cd = [] then ans else let (c,d) = (List.hd cd) in let dis = abs(x-c) + abs(y-d) in if dis <= m then search x y dis (List.tl cd) (index-1) index else search x y m (List.tl cd) (index-1) ans;; let n,m = Scanf.scanf "%d %d " (fun a b -> a,b) in let rec loop i= if i <= 0 then [] else (Scanf.scanf "%d %d " (fun a b -> a,b)) :: loop (i-1) in let ab = List.rev (loop n) in let cd = loop m in let rec loop2 ls = match ls with |[] -> () |(a,b)::tail -> Printf.printf "%d\n" (search a b 1000000000 cd m 0);loop2 tail in loop2 ab;;
Submission Info
Submission Time | |
---|---|
Task | B - Checkpoints |
User | niyarin |
Language | OCaml (4.02.3) |
Score | 200 |
Code Size | 694 Byte |
Status | AC |
Exec Time | 1 ms |
Memory | 512 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 | 1 ms | 384 KB |
sample_02.txt | AC | 1 ms | 384 KB |
sample_03.txt | AC | 1 ms | 384 KB |
subtask_1_1.txt | AC | 1 ms | 384 KB |
subtask_1_2.txt | AC | 1 ms | 384 KB |
subtask_1_3.txt | AC | 1 ms | 384 KB |
subtask_1_4.txt | AC | 1 ms | 384 KB |
subtask_1_5.txt | AC | 1 ms | 384 KB |
subtask_1_6.txt | AC | 1 ms | 384 KB |
subtask_1_7.txt | AC | 1 ms | 512 KB |