Disarium numbers: Difference between revisions
Content added Content deleted
imported>Maxima enthusiast No edit summary |
(→J: 19 times as fast) |
||
| Line 1,676: | Line 1,676: | ||
=={{header|J}}== |
=={{header|J}}== |
||
<syntaxhighlight lang="j">digits=: |
<syntaxhighlight lang="j">digits=: "."0@": |
||
disarium=: |
disarium=: = (+/@:^ #\)@digits"0 |
||
I.disarium i. |
I. disarium i. 27e5 |
||
0 1 2 3 4 5 6 7 8 9 89 135 175 518 598 1306 1676 2427</syntaxhighlight> |
0 1 2 3 4 5 6 7 8 9 89 135 175 518 598 1306 1676 2427 2646798</syntaxhighlight> |
||
=={{header|Java}}== |
=={{header|Java}}== |
||
<syntaxhighlight lang="java"> |
<syntaxhighlight lang="java"> |
||