Disarium numbers: Difference between revisions
Content added Content deleted
(→J: 19 times as fast) |
|||
Line 300: | Line 300: | ||
<pre> |
<pre> |
||
0 1 2 3 4 5 6 7 8 9 89 135 175 518 598 1306 1676 2427 2646798 |
0 1 2 3 4 5 6 7 8 9 89 135 175 518 598 1306 1676 2427 2646798 |
||
</pre> |
|||
=={{header|Amazing Hopper}}== |
|||
<syntaxhighlight lang="c"> |
|||
#include <basico.h> |
|||
#proto encontrarunDisarium(_X_) |
|||
#synon _encontrarunDisarium siencontréunDisarium |
|||
algoritmo |
|||
decimales '0' |
|||
iterar para ( n=3000000, n, --n ) |
|||
si encontré un Disarium 'n', entonces{ |
|||
imprimir( #(utf8("El número ")),n," es Disarium\n") |
|||
} |
|||
siguiente |
|||
terminar |
|||
subrutinas |
|||
encontrar un Disarium (n) |
|||
i=0 |
|||
n, obtener tamaño parte entera, mover a 'i' |
|||
m=0, tn=n, d=0 |
|||
iterar mientras ( tn ) |
|||
último dígito 'tn', mover a 'd,tn' |
|||
d, elevado a 'i', más 'm' |
|||
mover a 'm' |
|||
--i |
|||
reiterar |
|||
retornar ' #(m==n) ' |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
El número 2646798 es Disarium |
|||
El número 2427 es Disarium |
|||
El número 1676 es Disarium |
|||
El número 1306 es Disarium |
|||
El número 598 es Disarium |
|||
El número 518 es Disarium |
|||
El número 175 es Disarium |
|||
El número 135 es Disarium |
|||
El número 89 es Disarium |
|||
El número 9 es Disarium |
|||
El número 8 es Disarium |
|||
El número 7 es Disarium |
|||
El número 6 es Disarium |
|||
El número 5 es Disarium |
|||
El número 4 es Disarium |
|||
El número 3 es Disarium |
|||
El número 2 es Disarium |
|||
El número 1 es Disarium |
|||
</pre> |
</pre> |
||