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