[過去ログ]
高木くんがアクセプトされるまで見守るスレ ★4 (1002レス)
高木くんがアクセプトされるまで見守るスレ ★4 http://rio2016.5ch.net/test/read.cgi/math/1688037294/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
706: ◆pObFevaelafK [sage] 2023/07/27(木) 11:31:34.30 ID:Rrvg2yJA >>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 http://rio2016.5ch.net/test/read.cgi/math/1688037294/706
707: ◆pObFevaelafK [sage] 2023/07/27(木) 11:32:12.11 ID:Rrvg2yJA >>706 追記 For l = 0 To n - 2 If l <> lSkip Then 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 End If Next End If Debug.Print s Next Debug.Print CStr(lCount) & " Relations" End Sub Sub SetPrimes(ByRef lPrimes() As Long) lPrimes(1) = 2 ... lPrimes(1000) = 7919 End Sub http://rio2016.5ch.net/test/read.cgi/math/1688037294/707
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.762s*