Submission #2699358


Source Code Expand

program main
	implicit none
	integer i
	character(50) O, E
	read(*, *) O
	read(*, *) E
	do i = 1, len_trim(E)-1
		write(*, '(a1)', advance = 'No') O(i:i)
		write(*, '(a1)', advance = 'No') E(i:i)
	end do
	if(len_trim(O)-len_trim(E) == 0) then
		write(*, '(a1)', advance = 'No') O(len_trim(E):len_trim(E))
		write(*, '(a1)') E(len_trim(E):len_trim(E))
	else
		write(*, '(a1)', advance = 'No') O(len_trim(E):len_trim(E))
		write(*, '(a1)', advance = 'No') E(len_trim(E):len_trim(E))
		write(*, '(a1)') O(len_trim(E)+1:len_trim(E)+1)
	end if
end program main

Submission Info

Submission Time
Task B - ∵∴∵
User otafuro
Language Fortran (gfortran v4.8.4)
Score 200
Code Size 573 Byte
Status AC
Exec Time 3 ms
Memory 384 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 2
AC × 10
Set Name Test Cases
Sample 0_000.txt, 0_001.txt
All 0_000.txt, 0_001.txt, rnd0.txt, rnd1.txt, rnd2.txt, rnd3.txt, short1.txt, short2.txt, short3.txt, wf.txt
Case Name Status Exec Time Memory
0_000.txt AC 3 ms 384 KB
0_001.txt AC 1 ms 256 KB
rnd0.txt AC 1 ms 256 KB
rnd1.txt AC 1 ms 256 KB
rnd2.txt AC 1 ms 256 KB
rnd3.txt AC 1 ms 256 KB
short1.txt AC 1 ms 256 KB
short2.txt AC 1 ms 256 KB
short3.txt AC 1 ms 256 KB
wf.txt AC 1 ms 256 KB