Almost prime: Difference between revisions
m
→{{header|RPL}}: formatting
(add RPL) |
m (→{{header|RPL}}: formatting) |
||
Line 4,202:
'''NEXT'''
k == 1 FS? AND SWAP DROP
≫ ≫ '
≪ 5 1 '''FOR''' k
{ } 2
'''WHILE''' OVER SIZE 10 < '''REPEAT'''
'''IF''' DUP k
1 + '''END''' DROP
-1 '''STEP'''
≫ '
|
Dim f As Integer = 0
For i As Integer = 2 To n
|