[過去ﾛｸﾞ] 高木くんがアクセプトされるまで見守るスレ ★4 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

705(1): ◆pObFevaelafK [sage] 2023/07/27(木)11:30 ID:Rrvg2yJA(5/11)
>>704 追記
For l1 = m To 1 Step -1
a = 0
b = Int((n - 1) / lPrimes(l1))
lSkip = -1
lMax = 0
For l = 0 To n - 2
p = n ^ 2 + 1 + l
If p Mod lPrimes(l1) = 0 Then
If pFlags(l) Then
a = a + 1
For l2 = l1 - 1 To 1 Step -1
If bCombinations(l, l2) Then
If lSkip = -1 Then
lSkip = l
lMax = l2
Exit For
Else
If l2 > lMax Then
lSkip = l
lMax = l2
Exit For
End If
End If
End If
Next
End If
End If
Next

---

706(1): ◆pObFevaelafK [sage] 2023/07/27(木)11:31 ID:Rrvg2yJA(6/11)
>>705 追記
l2 = 0
s = "r=" & CStr(lPrimes(l1)) & ", "
If a <= b Then
For l = 0 To n - 2
p = n ^ 2 + 1 + l
If p Mod lPrimes(l1) = 0 Then
If pFlags(l) Then
Do
l2 = l2 + 1
If rFlags(lPrimes(l1) * l2) Then
s = s & "[" & CStr(p) & "," & lPrimes(l1) * l2 & "]"
lCount = lCount + 1
pFlags(l) = False
rFlags(lPrimes(l1) * l2) = False
Exit Do
End If
Loop
End If
End If
Next
Else

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.068s