【题解】洛谷1149 火柴棒等式

本题地址： http://www.luogu.org/problem/show?pid=1149

题目描述

给你n根火柴棍，你可以拼出多少个形如“A+B=C”的等式？等式中的A、B、C是用火柴棍拼出的整数（若该数非零，则最高位不能是0）。用火柴棍拼数字0-9的拼法如图所示：

注意：
1. 加号与等号各自需要两根火柴棍
2. 如果A≠B，则A+B=C与B+A=C视为不同的等式（A、B、C>=0）
3. n根火柴棍必须全部用上

输入输出格式

输入格式：

输入文件matches.in共一行，又一个整数n（n<=24）。

输出格式：

输出文件matches.out共一行，表示能拼成的不同等式的数目。

输入输出样例

输入样例#1：

样例输入1：
14
样例输入2：
18

输出样例#1：

样例输出1：
2
样例输出2：
9

说明

【输入输出样例1解释】
2个等式为0+1=1和1+0=1。
【输入输出样例2解释】
9个等式为：
0+4=4
0+11=11
1+10=11
2+2=4
2+7=9
4+0=4
7+2=9
10+1=11
11+0=11

强行打表枚举AC，利用类似迭代的方法生成了2000左右的数字所需火柴棒数，然后喜闻乐见地AC了，说明还是数据太弱。

var n,i,j,k,ans:longint;

  a:array[0..9]of longint=(6,2,5,5,4,5,6,3,7,6);

  b:array[0..2050]of longint;

begin

readln(n);

n:=n-4;

for i:=0 to 9 do

  b[i]:=a[i];

for i:=10 to 2000 do

  begin

  k:=i;

  while k>9 do

    begin

    inc(b[i],a[k mod 10]);

    k:=k div 10;

    end;

  inc(b[i],a[k]);

  end;

for i:=0 to 1000 do

  for j:=0 to 1000 do

  if b[i]+b[j]+b[i+j]=n

  then inc(ans);

writeln(ans);

end.