有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
下面的影片便是完成后的“组合生成器”：