Submission #931193


Source Code Expand

Copy
const maxn = 100050;
var n,i,now,ans:longint;
    st:ansistring;
    f:array[0..maxn] of longint;
begin
  readln(st); n:=length(st); now:=0; ans:=0;
  for i:=1 to n do begin
    if st[i]='g' then begin
      if (now+1)<=(i>>1) then begin inc(now); inc(ans); end;
      continue;
    end;
    if (now+1)<=(i>>1) then inc(now) else dec(ans);
  end;
  writeln(ans); 
end.

Submission Info

Submission Time
Task D - AtCoDeer and Rock-Paper
User llgyc
Language Pascal (FPC 2.6.2)
Score 300
Code Size 384 Byte
Status
Exec Time 3 ms
Memory 256 KB

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Test Cases

Set Name Score / Max Score Test Cases
Sample 0 / 0 0_000.txt, 0_001.txt
All 300 / 300 0_000.txt, 0_001.txt, 1_002.txt, 1_003.txt, 1_004.txt, 1_005.txt, 1_006.txt, 1_007.txt, 1_008.txt, 1_009.txt, 1_010.txt, 1_011.txt, 1_012.txt, 1_013.txt, 1_014.txt, 1_015.txt, 1_016.txt, 1_017.txt, 1_018.txt, 1_019.txt, 1_020.txt, 1_021.txt, 1_022.txt, 1_023.txt, 1_024.txt
Case Name Status Exec Time Memory
0_000.txt 1 ms 128 KB
0_001.txt 1 ms 128 KB
1_002.txt 2 ms 256 KB
1_003.txt 2 ms 128 KB
1_004.txt 2 ms 256 KB
1_005.txt 2 ms 128 KB
1_006.txt 2 ms 256 KB
1_007.txt 1 ms 128 KB
1_008.txt 2 ms 256 KB
1_009.txt 2 ms 256 KB
1_010.txt 2 ms 256 KB
1_011.txt 2 ms 128 KB
1_012.txt 2 ms 256 KB
1_013.txt 1 ms 128 KB
1_014.txt 2 ms 256 KB
1_015.txt 2 ms 256 KB
1_016.txt 2 ms 256 KB
1_017.txt 2 ms 256 KB
1_018.txt 2 ms 256 KB
1_019.txt 1 ms 128 KB
1_020.txt 2 ms 256 KB
1_021.txt 2 ms 256 KB
1_022.txt 3 ms 256 KB
1_023.txt 2 ms 256 KB
1_024.txt 2 ms 256 KB