Submission #2240896

Source Code Expand

implicit none

integer:: n,i
character(100) :: c
integer, dimension(4):: count
integer,allocatable,dimension(:):: c_int

read(5,*) n
read(5,*) c

count=0
allocate(c_int(n))

do i=1,n
    read(c(i:i),*) c_int(i)
    count(c_int(i))=count(c_int(i))+1
enddo

write(6,"(i0,1x,i0)") maxval(count), minval(count)

end

Submission Info

Submission Time
Task A - センター採点
User Yuki_Utaai
Language Fortran (gfortran v4.8.4)
Score 100
Code Size 333 Byte
Status AC
Exec Time 1 ms
Memory 256 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 30
Set Name Test Cases
All 00_sample1.txt, 00_sample2.txt, 01_rnd_00.txt, 01_rnd_01.txt, 01_rnd_02.txt, 01_rnd_03.txt, 01_rnd_04.txt, 01_rnd_05.txt, 01_rnd_06.txt, 01_rnd_07.txt, 01_rnd_08.txt, 01_rnd_09.txt, 01_rnd_10.txt, 01_rnd_11.txt, 01_rnd_12.txt, 01_rnd_13.txt, 01_rnd_14.txt, 01_rnd_15.txt, 01_rnd_16.txt, 01_rnd_17.txt, 01_rnd_18.txt, 01_rnd_19.txt, 02_all_1.txt, 02_all_2.txt, 02_all_3.txt, 02_all_4.txt, 03_mini_1.txt, 03_mini_2.txt, 03_mini_3.txt, 03_mini_4.txt
Case Name Status Exec Time Memory
00_sample1.txt AC 1 ms 256 KB
00_sample2.txt AC 1 ms 256 KB
01_rnd_00.txt AC 1 ms 256 KB
01_rnd_01.txt AC 1 ms 256 KB
01_rnd_02.txt AC 1 ms 256 KB
01_rnd_03.txt AC 1 ms 256 KB
01_rnd_04.txt AC 1 ms 256 KB
01_rnd_05.txt AC 1 ms 256 KB
01_rnd_06.txt AC 1 ms 256 KB
01_rnd_07.txt AC 1 ms 256 KB
01_rnd_08.txt AC 1 ms 256 KB
01_rnd_09.txt AC 1 ms 256 KB
01_rnd_10.txt AC 1 ms 256 KB
01_rnd_11.txt AC 1 ms 256 KB
01_rnd_12.txt AC 1 ms 256 KB
01_rnd_13.txt AC 1 ms 256 KB
01_rnd_14.txt AC 1 ms 256 KB
01_rnd_15.txt AC 1 ms 256 KB
01_rnd_16.txt AC 1 ms 256 KB
01_rnd_17.txt AC 1 ms 256 KB
01_rnd_18.txt AC 1 ms 256 KB
01_rnd_19.txt AC 1 ms 256 KB
02_all_1.txt AC 1 ms 256 KB
02_all_2.txt AC 1 ms 256 KB
02_all_3.txt AC 1 ms 256 KB
02_all_4.txt AC 1 ms 256 KB
03_mini_1.txt AC 1 ms 256 KB
03_mini_2.txt AC 1 ms 256 KB
03_mini_3.txt AC 1 ms 256 KB
03_mini_4.txt AC 1 ms 256 KB