Minimum primes: Difference between revisions
Content added Content deleted
(Minimum primes en BASIC256) |
|||
Line 335: | Line 335: | ||
</lang>{{out}} |
</lang>{{out}} |
||
<pre>[43; 101; 79; 59; 67;;]</pre> |
<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}}== |
=={{header|Nim}}== |