Submission #2604163

Source Code Expand

($A,$B)=split" ",<>;
for $c (<>=~/./g){
	if($c=~/S/){
		if($A){--$A}
	}
	elsif($c=~/C/){
		if($B){--$B}
	}
	elsif($A>=$B){
		if($A){--$A}
	}
	else{
		if($B){--$B}
	}
}
print"$A\n$B"

Submission Info

Submission Time
Task B - 洋菓子店
User kotatsugame
Language Perl (v5.18.2)
Score 200
Code Size 196 Byte
Status AC
Exec Time 52 ms
Memory 8192 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 4
AC × 12
Set Name Test Cases
Sample sample-01.txt, sample-02.txt, sample-03.txt, sample-04.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, sample-01.txt, sample-02.txt, sample-03.txt, sample-04.txt
Case Name Status Exec Time Memory
01.txt AC 43 ms 6784 KB
02.txt AC 27 ms 4224 KB
03.txt AC 33 ms 5248 KB
04.txt AC 34 ms 5248 KB
05.txt AC 14 ms 2432 KB
06.txt AC 52 ms 8192 KB
07.txt AC 6 ms 1152 KB
08.txt AC 2 ms 384 KB
sample-01.txt AC 2 ms 384 KB
sample-02.txt AC 2 ms 384 KB
sample-03.txt AC 2 ms 384 KB
sample-04.txt AC 2 ms 384 KB