USACO 3.1 丑数 Humble Numbers

Description

　　对于一给定的素数集合 S = {p1, p2, …, pK}, 来考虑那些质因数全部属于S 的数的集合。这个集合包括，p1, p1p2, p1p1, 和 p1p2p3 (还有其它)。这是个对于一个输入的S的丑数集合。
　　注意：我们不认为1 是一个丑数。
　　你的工作是对于输入的集合S去寻找集合中的第N个丑数。longint(signed 32-bit)对于程序是足够的。

Input

第 1 行: 二个被空格分开的整数:K 和 N ， 1<= K<=100 ， 1<= N<=100,000.
第 2 行: K 个被空格分开的整数:集合S的元素

Output

单独的一行，写上对于输入的S的第N个丑数。

Sample Input

4 19
2 3 5 7
Sample Output

27

堆：
1.找N次最小值。
2.每次找最小值并且排除，然后在剩下数中继续找。
3.注意题目范围。

var
    f:array [0..100001] of longint;
  a,b:array [0..101] of longint;
  n,k,i,j,min,t,l:longint;
begin
    readln(k,n);
    for i:=1 to k do read(a[i]);
    f[0]:=1; l:=1;
    for i:=1 to n do
        begin
            while true do
                  begin
                      min:=maxlongint;
                      t:=0;
                      for j:=1 to k do
                          if f[b[j]]*a[j]then begin
                                      min:=f[b[j]]*a[j];
                                      t:=j;
                                  end;
                      inc(b[t]);
                      if l<>min then break;
                  end;
            f[i]:=min; l:=min;
        end;
    writeln(f[n]);
end.