Achilles numbers: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Raku}}: avoid unnecessary caching, remove some recalculations) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: add some timings) |
||
| Line 158: | Line 158: | ||
=={{header|Raku}}== |
=={{header|Raku}}== |
||
Timing is going to be system / OS dependent. |
|||
<lang perl6>use Prime::Factor; |
<lang perl6>use Prime::Factor; |
||
use Math::Root; |
use Math::Root; |
||
| Line 201: | Line 202: | ||
put "\nNumber of Achilles numbers with:"; |
put "\nNumber of Achilles numbers with:"; |
||
say "$_ digits: " ~ +$achilles{$_} // 0 for 2..9; |
say "$_ digits: " ~ +$achilles{$_} // 0 for 2..9; |
||
printf "\n%.3f total elapsed seconds\n", now - INIT now;</lang> |
|||
{{out}} |
{{out}} |
||
<pre>First 50 Achilles numbers: |
<pre>First 50 Achilles numbers: |
||
| Line 223: | Line 226: | ||
7 digits: 2242 |
7 digits: 2242 |
||
8 digits: 7395 |
8 digits: 7395 |
||
9 digits: 24008 |
9 digits: 24008 |
||
6.113 total elapsed seconds</pre> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |
||