寂寞的程序员

 

题目描述

有两个寂寞的程序员J和Y，J说他可以两分钟敲8000字，Y说不信，于是J与Y的4kb/min机器人进行了一场打字比赛。机器人以匀高速敲着乱码，而J找到了帮他超越手速的键：CTRL。J可以花不同的时间进行以下操作：
敲一个字符
按CTRL-A
按CTRL-C
按CTRL-V
(具体效果请在记事本内实验)
你需要制定一个操作顺序，使得J在n毫秒内输入的字符数最多。

【数据范围】
30%的数据保证 n≤10
100%的数据保证 1≤n≤1,000；1≤cost≤n

输入格式

第一行五个整数 n cost_input cost_CtrlA cost_CtrlC cost_CtrlV，四个cost分别对应进行四个操作需要耗费的毫秒数

输出格式

一行一个整数，表示能够输入的最多字符数

样例输入

14 10 1 1 1

样例输出

2

 

type arr=array[0..1000] of longint;var n,a,b,c,d:longint;f:array[0..5000] of arr;ans:arr;m,i,j,k,sum:longint;procedure jia(var now:arr; x:longint);var i:longint;begin {for i:=1 to now[0] do  begin   now[i]:=now[i]+x;   now[i+1]:=now[i+1]+now[i] div 1000000;   now[i]:=now[i] mod 1000000;  end; if now[now[0]+1]>0 then inc(now[0]);}//fuck now[1]:=now[1]+x; for i:=1 to now[0] do  begin   now[i+1]:=now[i+1]+now[i] div 1000000;   now[i]:=now[i] mod 1000000;  end; if now[now[0]+1]>0 then inc(now[0]);end;procedure cheng(var now:arr;x:longint);var i:longint;begin now[1]:=now[1]*x; for i:=2 to now[0] do  begin   now[i]:=now[i]*x;   now[i]:=now[i]+now[i-1] div 1000000;   now[i-1]:=now[i-1] mod 1000000;  end; {if now[now[0]+1]>0 then inc(now[0]);} while now[now[0]]>=1000000 do  begin   inc(now[0]); now[now[0]]:=now[now[0]-1] div 1000000;   now[now[0]-1]:=now[now[0]-1] mod 1000000;  end;end;function right(arr1,arr2:arr):boolean;var i:longint;begin if arr1[0]>arr2[0] then exit(true); if arr1[0]<arr2[0] then exit(false); for i:=arr1[0] downto 1 do  if arr1[i]>arr2[i] then exit(true)  else if arr1[i]<arr2[i] then exit(false); exit(false);end;begin assign(input,'p2.in'); assign(output,'p2.out'); reset(input); rewrite(output); readln(n,a,b,c,d); b:=b+c; f[0,0]:=1; f[0,1]:=0; for i:=1 to n do  begin   if i-a>=0 then    begin     f[i]:=f[i-a]; jia(f[i],1);  {if i=377 then writeln(f[i-a,0],'OX');}    end   else begin    f[i,0]:=1; f[i,1]:=0;   end;   {if i=377 then begin end;}   for j:=2 to (i-b) div d do    begin     ans:=f[i-b-d*j]; cheng(ans,j);     if right(ans,f[i]) then begin f[i]:=ans;     {if i=376 then writeln(j,' fuck',i-b-d*j);} end;    end;  end; write(f[n,f[n,0]]); for i:=f[n,0]-1 downto 1 do  begin   if f[n,i]<100000 then write(0);   if f[n,i]<10000 then write(0);   if f[n,i]<1000 then write(0);   if f[n,i]<100 then write(0);   if f[n,i]<10 then write(0);   write(f[n,i]);  end; close(input); close(output);end.