Submission #1695407
Source Code Expand
program main implicit none integer n,k,x(100),i integer::summ=0 read(*,*)n,k read(*,*)x(1:n) do i=1,n summ=summ+min(abs(x(i)),abs(x(i)-k)) enddo write(*,*)summ*2 end program main
Submission Info
Submission Time | |
---|---|
Task | B - Collecting Balls (Easy Version) |
User | sojisan |
Language | Fortran (gfortran v4.8.4) |
Score | 200 |
Code Size | 200 Byte |
Status | AC |
Exec Time | 7 ms |
Memory | 640 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 200 / 200 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | subtask0_0.txt, subtask0_1.txt, subtask0_2.txt |
All | 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, subtask0_0.txt, subtask0_1.txt, subtask0_2.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
01.txt | AC | 7 ms | 640 KB |
02.txt | AC | 1 ms | 256 KB |
03.txt | AC | 1 ms | 256 KB |
04.txt | AC | 1 ms | 256 KB |
05.txt | AC | 1 ms | 256 KB |
06.txt | AC | 1 ms | 256 KB |
07.txt | AC | 1 ms | 256 KB |
subtask0_0.txt | AC | 1 ms | 256 KB |
subtask0_1.txt | AC | 1 ms | 256 KB |
subtask0_2.txt | AC | 1 ms | 256 KB |