Almost prime: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,202: / Line 4,202: @@
       '''NEXT'''
       k == 1 FS? AND SWAP DROP
- ≫ ≫ ''''KPRIM'''' STO
+ ≫ ≫ '<span style="color:blue">KPRIM</span>' STO
  ≪ 5 1 '''FOR''' k
       { } 2
       '''WHILE''' OVER SIZE 10 < '''REPEAT'''
-         '''IF''' DUP k '''KPRIM''' '''THEN''' SWAP OVER + SWAP '''END'''
+         '''IF''' DUP k <span style="color:blue">KPRIM</span> '''THEN''' SWAP OVER + SWAP '''END'''
 + '''END''' DROP
      -1 '''STEP'''
- ≫ ''''TASK'''' STO
+ ≫ '<span style="color:blue">TASK</span>' STO
 |
- ''' KPRIM''' ''( n k -- boolean ) ''
+ <span style="color:blue">KPRIM</span> ''( n k → boolean ) ''
  Dim f As Integer = 0
    For i As Integer = 2 To n