Primality by trial division: Difference between revisions
Content added Content deleted
m (→{{header|RPL}}) |
m (→{{header|RPL}}) |
||
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 |
'''REPEAT''' 3 PICK + #6 4 ROLL - SWAP '''END''' |
||
≫ |
≫ |
||
'''BDIV?''' NOT SWAP DROP |
'''BDIV?''' NOT SWAP DROP |