Special divisors: Difference between revisions
m
→{{header|RPL}}: better loop exit
(add RPL) |
m (→{{header|RPL}}: better loop exit) |
||
Line 1,922:
≫ '<span style="color:blue">REVNUM</span>' STO
≪ {
1 SF
n <span style="color:blue">REVNUM</span> n DIVIS
2 OVER SIZE 1 - '''FOR''' d
'''IF''' DUP2 d GET <span style="color:blue">REVNUM</span> MOD '''THEN'''
1 CF
'''NEXT''' DROP2
'''IF''' 1 FS? '''THEN''' n + '''END'''
Line 1,937:
1: {1 2 3 4 5 6 7 8 9 11 13 17 19 22 23 26 27 29 31 33 37 39 41 43 44 46 47 53 55 59 61 62 66 67 69 71 73 77 79 82 83 86 88 89 93 97 99 101 103 107 109 113 121 127 131 137 139 143 149 151 157 163 167 169 173 179 181 187 191 193 197 199}
</pre>
Runs in 62 seconds on a HP-50g.
=={{header|Ruby}}==
| |||