Smallest multiple: Difference between revisions
Content added Content deleted
m (→{{header|Python}}: Updated output alignment) |
(→{{header|Haskell}}: Added a Haskell version) |
||
Line 125: | Line 125: | ||
2000: 151117794877444315307536308337572822173736308853579339903227904473000476322347234655122160866668946941993951014270933512030194957221371956828843521568082173786251242333157830450435623211664308500316844478617809101158220672108895053508829266120497031742749376045929890296052805527212315382805219353316270742572401962035464878235703759464796806075131056520079836955770415021318508272982103736658633390411347759000563271226062182345964184167346918225243856348794013355418404695826256911622054015423611375261945905974225257659010379414787547681984112941581325198396634685659217861208771400322507388161967513719166366839894214040787733471287845629833993885413462225294548785581641804620417256563685280586511301918399010451347815776570842790738545306707750937624267501103840324470083425714138183905657667736579430274197734179172691637931540695631396056193786415805463680000 |
2000: 151117794877444315307536308337572822173736308853579339903227904473000476322347234655122160866668946941993951014270933512030194957221371956828843521568082173786251242333157830450435623211664308500316844478617809101158220672108895053508829266120497031742749376045929890296052805527212315382805219353316270742572401962035464878235703759464796806075131056520079836955770415021318508272982103736658633390411347759000563271226062182345964184167346918225243856348794013355418404695826256911622054015423611375261945905974225257659010379414787547681984112941581325198396634685659217861208771400322507388161967513719166366839894214040787733471287845629833993885413462225294548785581641804620417256563685280586511301918399010451347815776570842790738545306707750937624267501103840324470083425714138183905657667736579430274197734179172691637931540695631396056193786415805463680000 |
||
</pre> |
</pre> |
||
=={{header|Haskell}}== |
|||
<lang haskell>import Text.Printf (printf) |
|||
--- SMALLEST INTEGER EVENLY DIVISIBLE BY EACH OF [1..N] -- |
|||
smallest :: Integer -> Integer |
|||
smallest = |
|||
foldr lcm 1 . enumFromTo 1 |
|||
--------------------------- TEST ------------------------- |
|||
main :: IO () |
|||
main = |
|||
(putStrLn . unlines) $ |
|||
showSmallest <$> [10, 20, 200, 2000] |
|||
------------------------- DISPLAY ------------------------ |
|||
showSmallest :: Integer -> String |
|||
showSmallest = |
|||
((<>) . (<> " -> ") . printf "%4d") |
|||
<*> (printf "%d" . smallest)</lang> |
|||
{{Out}} |
|||
<pre> 10 -> 2520 |
|||
20 -> 232792560 |
|||
200 -> 337293588832926264639465766794841407432394382785157234228847021917234018060677390066992000 |
|||
2000 -> 151117794877444315307536308337572822173736308853579339903227904473000476322347234655122160866668946941993951014270933512030194957221371956828843521568082173786251242333157830450435623211664308500316844478617809101158220672108895053508829266120497031742749376045929890296052805527212315382805219353316270742572401962035464878235703759464796806075131056520079836955770415021318508272982103736658633390411347759000563271226062182345964184167346918225243856348794013355418404695826256911622054015423611375261945905974225257659010379414787547681984112941581325198396634685659217861208771400322507388161967513719166366839894214040787733471287845629833993885413462225294548785581641804620417256563685280586511301918399010451347815776570842790738545306707750937624267501103840324470083425714138183905657667736579430274197734179172691637931540695631396056193786415805463680000</pre> |
|||
=={{header|Julia}}== |
=={{header|Julia}}== |