khởi tạo F[0]=1
For i:=1 to n do
For j:=S downto A[i] do F[j] := F[j] + F[j-A[i]]

F[0] = 1; F[1] = 3; F[2] = 3; F[3] = 1 ( chỉ dùng 3 số 1 đầu tiên )

F[0] = 1; F[1] = 3; F[2] = 4; F[3] =4

res[i] = F[ S-A[i] ]
Tuy nhiên F[S-A[i]] bây giờ đã được tăng 1 lượng F[ S-2*A[i] ]
F[ S - A[2*i] ] bây giờ đã được tăng 1 lượng F[ S-3*A[i] ]
F[ S - A[3*i] ] bây giờ đã được tăng 1 lượng F[ S-4*A[i] ]
Nhưng F[ S mod A[i] ] thì vẫn được giữ nguyên

F'[0] = F[0] = 1   
F'[1] = F[1] - F'[1-x] = 3-1 = 2
F'[2] = F[2] - F'[2-x] = 4-2 = 2
F'[3] = F[3] - F'[3-x] = 4-2 = 2
res[1] = F' [S-A[1]] = F'[2] = 2 

Procedure init;
Begin
  F[0]:=1;
  For i:=1 to n do
  For j:=m downto a[i] do
    F[j]:=(F[j]+F[j-A[i]]) mod e;
End;
 
Procedure xuly;
Begin
  For i:=1 to n do
  IF A[i]<=m then
    begin
      // cach 1:
//      For j:=0 to m do S[j]:=F[j];
//      For j:=A[i] to m do S[j]:=(F[j]-S[j-A[i]]+e) mod e;
 
      // cach 2 (nhanh hon):
      x:=m mod A[i];
      S[x]:=F[x];
      Repeat
        x:=x+A[i];
        S[x]:=(F[x]-S[x-A[i]]+e) mod e;
      Until x=m;
      Write(S[m-A[i]],' ');
    end
  Else Write(0,' ');
End;

const
  inf = '';
  ouf = '';
 
var
   a , x  : array [ 0..1000] of longint;
   t , d : array [0..1000] of longint;
   c : array [ 1..1000] of boolean;
   n,s : longint;
 
procedure doc;
  var
    f : text;
    i : integer;
  begin
     assign(f,inf);
     reset(f);
     readln(f,n,s);
     for i :=1 to n do
        read(f,a[i]);
     close(f);
  end;
 
procedure khoitao;
  begin
     x[0] := 1;
     t[0] := 0;
     fillchar(c,sizeof(c),true);
     fillchar(d,sizeof(d),0);
  end;
 
procedure sort(d,c : longint);
  var
    i,j,t,tam : longint;
  begin
    i := d;
    j := c;
    t := a[(i+j) div 2];
    repeat
      while a[i]<t do inc(i);
      while a[j]>t do dec(j);
      if i<=j then
         begin
           tam := a[i];
           a[i] := a[j];
           a[j] := tam;
           inc(i); dec(j);
         end;
    until i>j;
    if i<c then sort(i,c);
    if d<j then sort(d,j);
  end;
 
procedure xuat(k : integer);
  var
     i : integer;
  begin
    for i := 1 to k do
       inc(d[x[i]]);
  end;
 
procedure tim(i : integer);
  var  j : integer;
  begin
     for j := x[i-1] to n do
       if c[j] and (S>=t[i-1]+a[j]) then
          begin
            x[i] := j;
            t[i] := t[i-1] + a[j];
            if t[i] = s then
               xuat(i)
            else
              begin
                c[j] := false;
                tim(i+1);
                c[j] := true;
              end;
          end;
  end;
 
procedure kq;
  var i : integer;
  begin
    for i := 1 to n do
       write(d[i]:6);
  end;
 
begin
  doc;
  khoitao;
  sort(1,n);
  tim(1);
  kq;
end.