Numbers in base 10 that are palindromic in bases 2, 4, and 16: Difference between revisions
Numbers in base 10 that are palindromic in bases 2, 4, and 16 (view source)
Revision as of 19:57, 13 November 2023
, 6 months agoAdded Euler
m (→{{header|RPL}}: minor improvement on brute force) |
(Added Euler) |
||
Line 523:
</pre>
=={{header|Euler}}==
'''begin'''
'''new''' palendromic; '''new''' n; '''label''' forN;
palendromic
<- ` '''formal''' n; '''formal''' base;
'''begin'''
'''new''' v; '''new''' lPos; '''new''' rPos; '''new''' isPalendromic;
'''new''' digit;
'''label''' vGT0; '''label''' rGTl;
digit <- '''list''' 64;
rPos <- 0;
v <- n;
vGT0: '''if''' v > 0 '''then''' '''begin'''
rPos <- rPos + 1;
digit[ rPos ] <- v '''mod''' base;
v <- v % base;
'''goto''' vGT0
'''end''' '''else''' 0;
isPalendromic <- '''true''';
lPos <- 1;
rGTl: '''if''' rPos > lPos '''and''' isPalendromic '''then''' '''begin'''
isPalendromic <- digit[ lPos ] = digit[ rPos ];
lPos <- lPos + 1;
rPos <- rPos - 1;
'''goto''' rGTl
'''end''' '''else''' 0;
isPalendromic
'''end'''
'
;
'''out''' 0;
n <- -1;
forN: '''if''' [ n <- n + 2 ] < 25000 '''then''' '''begin'''
'''if''' '''not''' palendromic( n, 16 ) '''then''' 0
'''else''' '''if''' '''not''' palendromic( n, 4 ) '''then''' 0
'''else''' '''if''' palendromic( n, 2 ) '''then''' '''out''' n
'''else''' 0
;
'''goto''' forN
'''end''' '''else''' 0
'''end''' $
{{out}}
<pre>
NUMBER 0
NUMBER 1
NUMBER 3
NUMBER 5
NUMBER 15
NUMBER 17
NUMBER 51
NUMBER 85
NUMBER 255
NUMBER 257
NUMBER 273
NUMBER 771
NUMBER 819
NUMBER 1285
NUMBER 1365
NUMBER 3855
NUMBER 4095
NUMBER 4097
NUMBER 4369
NUMBER 12291
NUMBER 13107
NUMBER 20485
NUMBER 21845
</pre>
=={{header|F_Sharp|F#}}==
| |||