Product of min and max prime factors: Difference between revisions
Product of min and max prime factors (view source)
Revision as of 00:06, 31 October 2022
, 1 year ago→{{header| Haskell}}: Added a draft in Haskell
(Added AppleScript.) |
m (→{{header| Haskell}}: Added a draft in Haskell) |
||
Line 726:
91 46 93 94 95 6 9409 14 33 10
</pre>
=={{header|Haskell}}==
<syntaxhighlight lang=haskell>import Data.List.Split (chunksOf)
import Data.Numbers.Primes (primeFactors)
main :: IO ()
main =
(mapM_ print . chunksOf 10 . take 100) $
1 : (((*) . minimum <*> maximum) . primeFactors <$> [2 ..])</syntaxhighlight>
{{Out}}
<pre>[1,4,9,4,25,6,49,4,9,10]
[121,6,169,14,15,4,289,6,361,10]
[21,22,529,6,25,26,9,14,841,10]
[961,4,33,34,35,6,1369,38,39,10]
[1681,14,1849,22,15,46,2209,6,49,10]
[51,26,2809,6,55,14,57,58,3481,10]
[3721,62,21,4,65,22,4489,34,69,14]
[5041,6,5329,74,15,38,77,26,6241,10]
[9,82,6889,14,85,86,87,22,7921,10]
[91,46,93,94,95,6,9409,14,33,10]</pre>
=={{header|J}}==
| |||