Ruth-Aaron numbers: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Raku}}: Add RA triple divisors.) |
|||
| Line 103: | Line 103: | ||
(1..∞).first: { @pf[$_] == @pf[$_ + 1] == @pf[$_ + 2] } |
(1..∞).first: { @pf[$_] == @pf[$_ + 1] == @pf[$_ + 2] } |
||
# Really, really, _really_ slow. |
# Really, really, _really_ slow. 186(!) minutes... but with no cheating or "leg up". |
||
put "\nFirst Ruth-Aaron triple (Divisors):\n" ~ |
|||
(1..∞).first: { @upf[$_] == @upf[$_ + 1] == @upf[$_ + 2] }</lang> |
|||
{{out}} |
{{out}} |
||
<pre>First 30 Ruth-Aaron numbers (Factors): |
<pre>First 30 Ruth-Aaron numbers (Factors): |
||
| Line 114: | Line 114: | ||
First Ruth-Aaron triple (Factors): |
First Ruth-Aaron triple (Factors): |
||
417162 |
417162 |
||
First Ruth-Aaron triple (Divisors): |
|||
89460294</pre> |
|||