3360: [Usaco2004 Jan]算二十四

3360: [Usaco2004 Jan]算二十四

Time Limit: 10 Sec  Memory Limit: 128 MB
Submit: 6  Solved: 6
[Submit][Status][Discuss]

Description

    写一个程序，给出D(2≤D≤10)个数字，按原顺序在数字间加+，一，×算出24，且不使用括

号．优先级按正常的优先级处理，即先做乘法后做加减法．输出有多少种不同的方案数．

Input

    第1行：一个整数D.

    第2到D+1行：D个整数，在1到50之间．

Output

 

    输出方案总数．

Sample Input

5
6
4
2
8
16

Sample Output

4
样例说明
四种方法分别是6x4x2-8-16，6-4- 2+8+16，6x4-2 x8+16，6×4+2×8-16.

HINT

 

Source

Orange

 

题解：直接O(3^N)都能过。。。水水哒。。。

（还有话说USACO Orange/Green/Blue 这玩意是什么鬼= =，别告诉我Orange=Bronze阿阿阿QAQ，@bx2k @Recursionsheep @acphile @wnjxyk）

const d:array[1..3] of char=('+','-','*');
var
        i,j,k,l,m,n:longint;
        a,b:array[0..20] of longint;
function calc:int64;
        var i:longint;a1,a2,a3:int64;
        begin
                a1:=0;a2:=a[1];a3:=1;
                for i:=2 to n do
                        begin
                                case b[i-1] of
                                        1:BEGIN
                                                if a3=1 then a1:=a1+a2 else a1:=a1-a2;
                                                a2:=a[i];a3:=1;
                                        end;
                                        2:begin
                                                if a3=1 then a1:=a1+a2 else a1:=a1-a2;
                                                a2:=a[i];a3:=2;
                                        end;
                                        3:begin
                                                a2:=a2*a[i];
                                        end;
                                end;
                        end;
                if a3=1 then a1:=a1+a2 else a1:=a1-a2;
                calc:=a1;
        end;
procedure dfs(x:longint);inline;
        var i:longint;
        begin
                if x>=n then
                        begin
                                if calc=24 then inc(l);
                                exit;
                        end;
                for i:=1 to 3 do
                        begin
                                b[x]:=i;
                                dfs(x+1);
                        end;
        end;
begin
        readln(n);
        for i:=1 to n do readln(a[i]);
        l:=0;
        dfs(1);
        writeln(l);
end.