Revision as of 07:13, 5 May 2023 (view source) Aerobar (talk \| contribs) (add RPL) ← Older edit		Revision as of 20:11, 30 July 2023 (view source) Aerobar (talk \| contribs) m (→‎{{header\|RPL}}: formatting) Newer edit →
Line 4,202: '''NEXT''' k == 1 FS? AND SWAP DROP ≫ ≫ '~~'''~~<span style="color:blue">KPRIM~~'''~~</span>' STO ≪ 5 1 '''FOR''' k { } 2 '''WHILE''' OVER SIZE 10 < '''REPEAT''' '''IF''' DUP k ~~'''~~<span style="color:blue">KPRIM~~'''~~</span> '''THEN''' SWAP OVER + SWAP '''END''' 1 + '''END''' DROP -1 '''STEP''' ≫ '~~'''~~<span style="color:blue">TASK~~'''~~</span>' STO \| ~~'''~~<span style="color:blue">KPRIM~~'''~~</span> ''( n k --→ boolean ) '' Dim f As Integer = 0 For i As Integer = 2 To n

Almost prime (view source)