Mian-Chowla sequence: Difference between revisions
→Sieve version: typos
(→Sieve version: improved sieve management) |
(→Sieve version: typos) |
||
Line 1,913:
« 39 DUP STWS / CEIL
« # 0b » 'x' 1 4 ROLL 1 SEQ
» '<span style="color:blue">CSV</span>' STO <span style="color:grey">''@ ( size → { sieve } )''</span>
« '''IF''' DUP2 EVAL SIZE 39 * > '''THEN'''
Line 1,920:
SWAP 1 - 39 MOD LASTARG / IP 1 +
ROT SWAP DUP2 GET 2 5 ROLL ^ R→B OR PUT
»
« '''IF''' DUP2 EVAL SIZE 39 * > '''THEN''' DROP2 0 '''ELSE'''
Line 1,926:
ROT SWAP GET 2 ROT ^ R→B AND # 0b ≠
'''END'''
»
«
'''WHILE''' DUP2 SIZE > '''REPEAT'''
DUP DUP SIZE GET
DUP 2 * 'Sums' <span style="color:blue">SSV</span>▼
'''DO''' 1 +
1 SF
Line 1,940 ⟶ 1,941:
1
1 3 PICK SIZE '''START''' GETI 'Sums' <span style="color:blue">SSV</span> '''NEXT'''
DROP2 +
▲ DUP 2 * 'Sums' <span style="color:blue">SSV</span>
'''END'''
SWAP DROP 'Sums' PURGE
|