Rosetta Code

Permuted multiples: Difference between revisions

Page Discussion

Permuted multiples (view source)

Revision as of 10:53, 17 August 2021

148 bytes added ,  2 years ago
m
→‎{{header|Raku}}: Add some output formatting
(→‎{{header|Raku}}: Add a Raku example)
m (→‎{{header|Raku}}: Add some output formatting)
Line 8:
<br><br>
=={{header|Raku}}==
<lang perl6>put display (1..^∞).map(1 ~ *).race.map( -> \n { next unless [eq] (2,3,4,5,6).map: { (n × $_).comb.sort.join }; n } ).first</lang>;
 
sub display ($n) { join "\n", " n: $n", (2..6).map: { "×$_: {$n×$_}" } }</lang>
{{out}}
<pre> n: 142857</pre>
×2: 285714
×3: 428571
×4: 571428
×5: 714285
×6: 857142
</pre>
 
=={{header|REXX}}==
Thundergnat
10,327

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/315120"