火柴拼数

来源：互联网发布：淘宝怎么买115会员2017 编辑：程序博客网时间：2024/05/01 23:41

【题目描述】
kkk某天闲得无聊，给自己规定，要用最多N根火柴摆出一个尽量大的正整数，而且这个数要能够被M整除。

【输入格式】
两个整数N和M
【输出格式】
拼出的数，无解输出-1
【样例输入】
6 3
【样例输出】
111
【数据范围】
1<=N<=100
1<=M<=3000
【分析】
一般来说，整数是从左往右一位一位写的，因此不难想到这样的DP算法：设f[i][j]表示用i根火柴能拼出的模m值为j的最大数，枚举在最右边添加的数字k，用f[i][j]*10+k来更新f[i+c[k],(j*10+k)%m]，其中的c[k]是常量数组，表示拼出数字k需要的火柴数。

const  maxn=101;  maxm=3001;  match:array[0..9]of integer=(6,2,5,5,4,5,6,3,7,6);var  i,j,k,n,m,t,ans:longint;  f,p:array[0..maxn,0..maxm]of longint;begin  read(n,m);    for i:=0 to n do      for j:=0 to m-1 do          begin            p[i,j]:=-1;            f[i,j]:=-1;            ans:=-1;            if j=0 then begin ans:=0;f[i,j]:=0; end;            for k:=9 downto 0 do              if i>=match[k] then begin                t:=f[i-match[k],(j*10+k) mod m];                if (t>=0)and(t+1>ans) then begin                  ans:=t+1;                  f[i,j]:=t+1;                  p[i,j]:=k;                end;              end;          end;    if p[n,0]<0 then writeln(-1)    else begin      i:=n;j:=0;      k:=p[i,j];      while k>=0 do begin        write(k);        i:=i-match[k];        j:=(j*10+k) mod m;        k:=p[i,j];      end;      writeln;    end;end.

3 0