ロト7週1回、ロト6週2回で分散してしまったよな

このエントリーをはてなブックマークに追加
41名無しさん@夢いっぱい
// 11to7で軸4個をすべてふくむ場合に出力
// Windowsのコマンドプロンプトで実行できます
// 【ファイル名】11to7w4.js
// 【コマンド】cscript //nologo 11to7w4.js > 11to7w4.txt
var e, i, k, m, p, q, r, s;
var a = new Array("02", "08", "12", "16", "19", "21", "22", "25", "27", "31", "35");
for(i = 0; i < 11; ++i) {
 for(k = i + 1; k < 11; ++k) {
  for(m = k + 1; m < 11; ++m) {
   for(p = m + 1; p < 11; ++p) {
    for(q = p + 1; q < 11; ++q) {
     for(r = q + 1; r < 11; ++r) {
      for(s = r + 1; s < 11; ++s) {

       z = a[i] + " " + a[k] + " " + a[m] + " " + a[p] + " " + a[q] + " " + a[r] + " " + a[s];
       e = z.indexOf("08")
       if(e < 0) {
        continue;
       }

       e = z.indexOf("12")
       if(e < 0) {
        continue;
       }

       e = z.indexOf("19")
       if(e < 0) {
        continue;
       }

       e = z.indexOf("21")
       if(e < 0) {
        continue;
       }

// "08", "12", "19", "21"のすべてをふくむ場合
       WScript.Echo(z);
      }
     }
    }
   }
  }
 }
}