Anonymous user
Minimum primes: Difference between revisions
→{{header|Julia}}
(Minimum primes en BASIC256) |
|||
Line 335:
</lang>{{out}}
<pre>[43; 101; 79; 59; 67;;]</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>minPrime[x_List] :=
If[PrimeQ@Max@x, Max@x, NextPrime@Max@x]
MapThread[
minPrime@{##} &, {{5., 45, 23, 21, 67}, {43, 22, 78, 46, 38}, {9, 98,
12, 54, 53}}]</lang>
{{out}}<pre>
{43,101,79,59,67}
</pre>
=={{header|Nim}}==
| |||