Submission #9891076

---

Source Code Expand

main=do
 [a,b,n]<-map read.words<$>getLine
 s<-getLine
 putStrLn$(\(a,b)->(show a)++" "++(show b))$f a b s
f a b[]=(a,b)
f a b(c:s)
 |c=='S'&&a>0=f(a-1)b s
 |c=='C'&&b>0=f a(b-1)s
 |c=='E'&&a>=b&&a>0=f(a-1)b s
 |c=='E'&&a<b&&b>0=f a(b-1)s
 |otherwise=f a b s

Submission Info

Judge Result