2017年10月05日普及组比萨

最新推荐文章于 2025-05-12 22:44:29 发布

原创最新推荐文章于 2025-05-12 22:44:29 发布 · 259 阅读

0 ·

CC 4.0 BY-SA版权

普及模拟赛同时被 2 个专栏收录

91 篇文章

订阅专栏

深度搜索

53 篇文章

订阅专栏

本文介绍了一种通过深度优先搜索解决特定组合问题的算法实现。该算法使用递归方法遍历所有可能的组合，并检查是否满足给定条件，以此来计数符合条件的组合总数。

这里写图片描述

分析
其实就是求组合

程序：

var
n,m,i,x,y,j:longint;
ans:int64;
s:array[0..20] of longint;
f:array[0..52] of longint;

procedure dfs(x,y:longint);
var
i:longint;
begin
    if x>n then
    begin
        for i:=1 to m do
        if f[i] and y=f[i] then exit;
        inc(ans);
        exit;
    end;
    dfs(x+1,y);
    dfs(x+1,y+s[x-1]);
end;

begin
    readln(n,m);
    s[0]:=1;
    for i:=1 to n do
    s[i]:=s[i-1]*2;
    for i:=1 to m do
    begin
        read(x);
        for j:=1 to x do
        begin
            read(y);
            f[i]:=f[i]+s[y-1];
        end;
    end;
    dfs(1,0);
    writeln(ans);
end.