用于彩票3D的一个组合算法

最近想写一个3D彩票的程序，先连抄带改写了一个组合的算法，放在这里，以防丢失，哈哈！

//组合函数，调用例子: Combine('0123456789', memo1.Lines, 4);

procedure Combine(CSet: string; sl: TStrings; Num: Integer);

unit Comb;

interface

uses Classes;

procedure Combine(CSet: string; sl: TStrings; Num: Integer);

implementation

var
n, r: Integer; // n - 字符集数目 r - 取出的数目
c: array[0..10] of Integer;
used: array[0..10] of Integer;

procedure Combine_1(ss: string; sl: TStrings; p, h: Integer);
var
i: Integer;
s: string;
begin
if p = r then begin
    s := '';
    for i := 0 to r - 1 do s := s + ss[c[i] + 1];
    sl.Add(s);
    Exit;
end;

for i := h to n - r + p do
    if Used[i] = 0 then begin
      c[p] := i;
      Inc(used[i]);
      Combine_1(ss, sl, p + 1, i + 1);
      Dec(used[i]);
    end;
end;

procedure Combine(CSet: string; sl: TStrings; Num: Integer);
var
i: Integer;
begin
for i := 0 to 10 do used[i] := 0;
n := Length(CSet);
r := Num;
Combine_1(CSet, sl, 0, 0);
end;

end.

用于彩票3D的一个组合算法相关推荐

python 彩票排列组合_对福彩3D号码进行排列组合为例学习Python的itertools模块的用法...
这里我们以对福彩3D号码进行排列组合为例学习Python的itertools模块的用法.首先我们选择心仪的号码.比如我们选择4,5,7,8 第一种我们只要组六的组合.代码如下 import itert ...
java 获取排列组合_Java获得一个数组的指定长度排列组合算法示例
本文实例讲述了Java获得一个数组的指定长度排列组合算法.分享给大家供大家参考,具体如下: package demo; import java.util.Stack; /** * JAVA获得一个数组 ...
一个组合加全排列的面试算法题及其解
题目: 给定"abcdefg" 7个字母,写一个程序将其中任意的字母组合输出,要求每种组合中每个字母最多出现一次,字母的不同位置顺序算不同的组合,例如ab和ba是不同的组合. 分析 ...
CVPR2020论文介绍： 3D 目标检测高效算法
CVPR2020论文介绍: 3D 目标检测高效算法 CVPR 2020: Structure Aware Single-Stage 3D Object Detection from Point Clo ...
3d 自动生成物体_CVPR2020论文介绍： 3D 目标检测高效算法
CVPR2020论文介绍: 3D 目标检测高效算法 CVPR 2020: Structure Aware Single-Stage 3D Object Detection from Point Clo ...
简述3D点云配准算法
蝶恋花·槛菊愁烟兰泣露槛菊愁烟兰泣露,罗幕轻寒,燕子双飞去. 明月不谙离恨苦,斜光到晓穿朱户. 昨夜西风凋碧树,独上高楼,望尽天涯路. 欲寄彩笺兼尺素.山长水阔知何处? --晏殊导读: 3D点 ...
js实现多维数组组合算法
前言最近在搞一个航线管理系统,如图,需要根据起始点,中转点和终点绘制航线图.这就涉及到点与点之间的组合算法.用专业点的说法,就是多维数组之间的元素组合.就拿上面的航线图来说,我们可以抽象为下面的数组 ...
关于足彩任选九的组合算法
最近互联网彩票被国家叫停进行整改了,整改后互联网公司获取利润肯定会降低,但是不得不说中国的互联网彩票销售需要进行整改了,虽然对行业是阵痛,但是能够更好的规范彩票市场,对整个市场都会起到积极的作用.前段 ...
【机器学习】树及其组合算法（二）（Bagging，Boosting，GBDT，XGboost，Adaboost，随机森林）
树及其组合算法二:Bagging 1集成学习 1.1集成学习概述 1.2集成学习的原理 2 Bagging 2.1 Bagging的建模 2.2 Bagging的预测 2.3 Bagging测试误差的 ...

用于彩票3D的一个组合算法

用于彩票3D的一个组合算法相关推荐

最新文章

热门文章