while (!$over) { #主循环
#得到Ck集合
my %CK=();
$Llen=$Llen+1;
%CK=apriori_gen($Llen,%LCK);
#进行对每个CK中的集合事务计数 ,并删除 小于 min_sup的集合
%LCK=CK_count(%CK);
#合成 结果集 %HD
union_HD(%LCK);
# %LL=%LCK;
# $Llen=$Llen+1;
# %CK=apriori_gen($Llen,%LL);
# %LCK=CK_count(%CK);
#判断是否结束LCK 长度为零就表示可以结束了
my @num=(keys %LCK);
if(scalar(@num)==0) { $over=1; }
}