Submission #2240890

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,*) maxval(count), minval(count)

end

Submission Info

Submission Time
Task A - センター採点
User Yuki_Utaai
Language Fortran (gfortran v4.8.4)
Score 0
Code Size 322 Byte
Status WA
Exec Time 6 ms
Memory 640 KB

Judge Result

Set Name All
Score / Max Score 0 / 100
Status
WA × 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 WA 6 ms 640 KB
00_sample2.txt WA 1 ms 256 KB
01_rnd_00.txt WA 1 ms 256 KB
01_rnd_01.txt WA 1 ms 256 KB
01_rnd_02.txt WA 1 ms 256 KB
01_rnd_03.txt WA 1 ms 256 KB
01_rnd_04.txt WA 1 ms 256 KB
01_rnd_05.txt WA 1 ms 256 KB
01_rnd_06.txt WA 1 ms 256 KB
01_rnd_07.txt WA 1 ms 256 KB
01_rnd_08.txt WA 1 ms 256 KB
01_rnd_09.txt WA 1 ms 256 KB
01_rnd_10.txt WA 1 ms 256 KB
01_rnd_11.txt WA 1 ms 256 KB
01_rnd_12.txt WA 1 ms 256 KB
01_rnd_13.txt WA 1 ms 256 KB
01_rnd_14.txt WA 1 ms 256 KB
01_rnd_15.txt WA 1 ms 256 KB
01_rnd_16.txt WA 1 ms 256 KB
01_rnd_17.txt WA 1 ms 256 KB
01_rnd_18.txt WA 1 ms 256 KB
01_rnd_19.txt WA 1 ms 256 KB
02_all_1.txt WA 1 ms 256 KB
02_all_2.txt WA 1 ms 256 KB
02_all_3.txt WA 1 ms 256 KB
02_all_4.txt WA 1 ms 256 KB
03_mini_1.txt WA 1 ms 256 KB
03_mini_2.txt WA 1 ms 256 KB
03_mini_3.txt WA 1 ms 256 KB
03_mini_4.txt WA 1 ms 256 KB