Primality by trial division: Difference between revisions

Content added Content deleted
Line 4,272: Line 4,272:
≪ #2 SWAP #5
≪ #2 SWAP #5
'''WHILE''' DUP2 '''BDIV?''' NOT OVER maxd ≤ AND
'''WHILE''' DUP2 '''BDIV?''' NOT OVER maxd ≤ AND
'''REPEAT''' 3 PICK + #6 ROT - SWAP '''END'''
'''REPEAT''' 3 PICK + #6 4 ROLL - SWAP '''END'''
'''BDIV?''' NOT SWAP DROP
'''BDIV?''' NOT SWAP DROP