humble.pas

来自「Magio牛的usaco源代码」· PAS 代码 · 共 40 行

{
ID:maigoak1
PROG:humble
}

program humble;
const
  maxk=100;
  maxn=100000;
var
  fin,fout:text;
  prime,f:array[1..maxk]of longint;
  hum:array[0..maxn]of longint;
  k,n,i,j,min:longint;
begin
  assign(fin,'humble.in');
  reset(fin);
  read(fin,k,n);
  for i:=1 to k do begin
    read(fin,prime[i]);
    f[i]:=0;
  end;
  close(fin);

  hum[0]:=1;
  for i:=1 to n do begin
    min:=maxlongint;
    for j:=1 to k do
      if hum[f[j]]*prime[j]<min then min:=hum[f[j]]*prime[j];
    hum[i]:=min;
    for j:=1 to k do
      if hum[f[j]]*prime[j]=min then inc(f[j]);
  end;

  assign(fout,'humble.out');
  rewrite(fout);
  writeln(fout,hum[n]);
  close(fout);
end.