Rare numbers: Difference between revisions
Content added Content deleted
m (→{{header|FreeBASIC}}: made it more FreeBASIC, added simple test.) |
|||
| Line 3,786: | Line 3,786: | ||
<lang langur>val .reverse = f toNumber join reverse split .n</lang> |
<lang langur>val .reverse = f toNumber join reverse split .n</lang> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>c = Compile[{{k, _Integer}}, |
<lang Mathematica>c = Compile[{{k, _Integer}}, |
||
Module[{out = {0}, start = 0, stop = 0, rlist = {0}, r = 0, |
Module[{out = {0}, start = 0, stop = 0, rlist = {0}, r = 0, |
||
| Line 3,836: | Line 3,836: | ||
]; |
]; |
||
Rest[c[9]] (*takes about 310 sec*)</lang> |
Rest[c[9]] (*takes about 310 sec*)</lang> |
||
{{out}} |
{{out}} |
||
<pre>{65, 621770, 281089082, 2022652202, 2042832002}</pre> |
<pre>{65, 621770, 281089082, 2022652202, 2042832002}</pre> |
||
=={{header|Nim}}== |
=={{header|Nim}}== |
||