记录编号	18718	评测结果	AAAAAAAAAA
题目名称	[USACO Feb08] 越野跑	最终得分	100
用户昵称	王者自由	是否通过	通过
代码语言	Pascal	运行时间	0.013 s
提交时间	2010-09-18 20:57:11	内存使用	0.12 MiB

program racing;
var m,t,i,s,w:longint;
  u,f,d:integer; c:char;
procedure print(k:longint);
begin
  writeln(k);
  close(input); close(output);
  halt;
end;
begin
  assign(input,'racing.in'); reset(input);
  assign(output,'racing.out'); rewrite(output);
  readln(m,t,u,f,d);
  s:=0; w:=0; u:=u+d; f:=f+f; d:=u;
  for i:=1 to t do
  begin
    readln(c);
    case c of
      'u': w:=w+u;
      'f': w:=w+f;
      'd': w:=w+d;
    end;
    inc(s);
    if m=w then print(s)
      else if m<w then print(s-1);
  end;
end.