Lingo解决组合问题

王朝other·作者佚名  2008-05-21
窄屏简体版  字體: |||超大  

有5张卡片,从中任取3张,列出所有可能的结果。

[分析]

输入卡片列表并确定最终组合列表的长度 ――〉计算组合的总数并生成组合列表 ――〉输出组合列表

[代码]

由于是有关排列组合的问题,必然会涉及到阶乘的计算。为了方便起见,可以先设计一个阶乘计算程序:

on mGetFactorial ( me , num)

factorial = 1

repeat with x = num down to 1

factorial = factorial * x

end repeat

return factorial

end

接下来,就可以利用这个阶乘计算程序得到组合的总数:

-- 计算阶乘

listFactorial = me .mGetFactorial(pListCount)

subsetFactorial = me .mGetFactorial(pSubsetCount)

listMinusSubsetFactorial = me .mGetFactorial(pListCount - pSubsetCount)

-- 计算组合总数

pTotal = listFactorial / (subsetFactorial * (listMinusSubsetFactorial))

pNumLeft = pTotal

现在,借助一个索引数值,通过循环语句即可生成一个索引列表:

on mGetCombination ( me )

-- 检测是否为第一次循环

if pNumLeft = pTotal then

-- 是第一次循环,使用当前子列表

pNumLeft = pNumLeft - 1

else

-- 不是第一次循环,获取新的子列表

x = pSubsetCount

-- 在当前子列表中循环并增值

repeat while pCurrentSubset[ x ] = pListCount - pSubsetCount + x

x = x - 1

end repeat

pCurrentSubset[ x ] = pCurrentSubset[ x ] + 1

repeat with y = ( x + 1 ) to pSubsetCount

pCurrentSubset[ y ] = pCurrentSubset[ x ] + y - x

end repeat

-- 获取新的子列表

pNumLeft = pNumLeft - 1

end if

end

之所以没有直接对实际的卡片列表进行直接操作,是为了让程序拥有更强的适应性。因为只要拥有了索引列表,就可以对任何传入的实际列表进行“组合”操作,而不仅仅限于这个卡片列表。当然,只需再添加一些代码,即可生成实际的结果列表:

-- 生成结果列表

combination = []

repeat with x = 1 to pSubsetCount

combination. add (pItemList[pCurrentSubset[ x ]])

end repeat

下面的影片便是完成后的“组合生成器”:

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航