Numbers in base 10 that are palindromic in bases 2, 4, and 16: Difference between revisions
Content added Content deleted
m (→{{header|RPL}}: minor improvement on brute force) |
(Added Euler) |
||
Line 523: | Line 523: | ||
</pre> |
</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#}}== |
=={{header|F_Sharp|F#}}== |