ロト６当選理論

//【Windows XPのコマンドプロンプトで実行】 cscript //nologo num4add7.js > num4add7.txt
var i, k, m, p, r, s, u;
for(i = 1; i <= 7; i++) {
　　for(k = i + 1; k <= 7; k++) {　　　　　// k > i
　　　　for(m = k + 1; m <= 7; m++) {　　　// m > k
　　　　　　for(p = m + 1; p <= 7; p++) {　// p > m
　　　　　　　　r = k + 1;　　　　　　　　 // 2個目の数字に1を加算し、
　　　　　　　　s = m + 2;　　　　　　　　 // 3個目の数字に2を加算し、
　　　　　　　　u = p + 3;　　　　　　　　 // 4個目の数字に3を加算すれば、4個目の数字は最高10
　　　　　　　　if(u == 10) {
　　　　　　　　　　WScript.Echo("0" + i + " 0" + r + " 0" + s + " 10 / ");
　　　　　　　　} else {
　　　　　　　　　　WScript.Echo("0" + i + " 0" + r + " 0" + s + " 0" + u + " / ");
　　　　　　　　}
　　　　　　}
　　　　}
　　}
}


/*
35とおり。しかも連番は存在しなくなる。
01 03 05 07 / 01 03 05 08 / 01 03 05 09 / 01 03 05 10 / 01 03 06 08 / 01 03 06 09 / 01 03 06 10 /
01 03 07 09 / 01 03 07 10 / 01 03 08 10 / 01 04 06 08 / 01 04 06 09 / 01 04 06 10 / 01 04 07 09 /
01 04 07 10 / 01 04 08 10 / 01 05 07 09 / 01 05 07 10 / 01 05 08 10 / 01 06 08 10 / 02 04 06 08 /
02 04 06 09 / 02 04 06 10 / 02 04 07 09 / 02 04 07 10 / 02 04 08 10 / 02 05 07 09 / 02 05 07 10 /
02 05 08 10 / 02 06 08 10 / 03 05 07 09 / 03 05 07 10 / 03 05 08 10 / 03 06 08 10 / 04 06 08 10 /
*/

>>7は、数がおおきすぎるため、例をあげて説明します。

1〜10から4個とりだす組合せは210とおり（ >>36 ）
　10Ｃ4　＝　10×9×8×7／（4×3×2×1）　＝　210

1〜7から4個とりだして、昇順にならべて、それぞれ0, 1, 2, 3を加算すると連番がなくなる。
1〜7から4個とりだす組合せは35とおり（ >>37 ）
　7Ｃ4　＝　7×6×5×4／（4×3×2×1）　＝　35

とりだした後…
1個目の数字および2個目の数字の差が1である（連番である）ならば、
2個目の数字に1を加算すれば、1個目の数字および2個目の数字の差が2になる。

2個目の数字に1を加算し、
3個目の数字に2を加算し、
4個目の数字に3を加算すれば、4個目の数字は最高10になる。しかも連番は存在しなくなる。
　7　＋　3　＝　10