Duffinian numbers: Difference between revisions
m
→{{header|RPL}}: formatting
m (Correct spelling mistake.) |
m (→{{header|RPL}}: formatting) |
||
Line 1,347:
|
≪
DUP <span style="color:blue">∑DIV</span>
'''IF''' DUP2 1 - == '''THEN''' DROP2 0 '''ELSE''' <span style="color:blue">GCD</span> 1 == '''END'''
≫ ‘
≪ { } 2
'''WHILE''' OVER SIZE 50 < '''REPEAT'''
'''IF''' DUP '''<span style="color:blue">DUFF?</span> THEN''' SWAP OVER + SWAP '''END'''
1 +
'''END''' DROP
≫ ‘
≪ { } 4 → duff n
≪ 0 0 0
'''WHILE''' duff SIZE 15 ≤ '''REPEAT'''
ROT DROP n
'''IF''' 3 DUPN + + 3 == '''THEN'''
n 2 - n 1 - n 3 →ARRY
Line 1,367:
n 1 + 'n' STO '''END'''
3 DROPN duff
≫ ≫ ‘
|
get σ
if composite then check gcd(n,σ)
loop from n=2 until 50 items in list
if n is Duffinian then append to list
Line 1,381:
put 3 'false' boolean values in stack
loop from n=4 until 15 items in list
|