Jump to content

Smallest multiple: Difference between revisions

Smallest multiple (view source)

Revision as of 13:37, 21 October 2021

288 bytes removed ,  2 years ago
→‎{{header|Raku}}: more concisely, use built-in
(Added Algol 68)
(→‎{{header|Raku}}: more concisely, use built-in)
Line 146:
Exercise with some larger values as well.
 
<lang perl6>usesay Prime"$_::Factor; ", [lcm] 2..$_ for <10 20 200 2000></lang>
 
sub minimum-multiple ($n where * > 1) {
my %max-factor;
for 2..$n { .&prime-factors.Bag.map: { %max-factor{.key} max= .value } }
[*] flat %max-factor.map: { .key xx .value }
}
 
say "$_: ", .&minimum-multiple for <10 20 200 2000>;
printf "%.3f seconds elapsed\n", now - INIT now;</lang>
 
{{out}}
Line 161 ⟶ 152:
20: 232792560
200: 337293588832926264639465766794841407432394382785157234228847021917234018060677390066992000
2000: 151117794877444315307536308337572822173736308853579339903227904473000476322347234655122160866668946941993951014270933512030194957221371956828843521568082173786251242333157830450435623211664308500316844478617809101158220672108895053508829266120497031742749376045929890296052805527212315382805219353316270742572401962035464878235703759464796806075131056520079836955770415021318508272982103736658633390411347759000563271226062182345964184167346918225243856348794013355418404695826256911622054015423611375261945905974225257659010379414787547681984112941581325198396634685659217861208771400322507388161967513719166366839894214040787733471287845629833993885413462225294548785581641804620417256563685280586511301918399010451347815776570842790738545306707750937624267501103840324470083425714138183905657667736579430274197734179172691637931540695631396056193786415805463680000</pre>
0.315 seconds elapsed</pre>
 
=={{header|Ring}}==
Thundergnat
10,333

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/316508"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information