Minimum primes: Difference between revisions
m
→{{header|Wren}}: Changed to Wren S/H
(add RPL) |
m (→{{header|Wren}}: Changed to Wren S/H) |
||
| (3 intermediate revisions by 2 users not shown) | |||
Line 400:
[43 101 79 59 67]
</pre>
=={{header|J}}==
<syntaxhighlight lang="j"> ] numbers =. 3 5 $ 5 45 23 21 67 43 22 78 46 38 9 98 12 54 53
5 45 23 21 67
43 22 78 46 38
9 98 12 54 53
4 p: <: >./ numbers
43 101 79 59 67</syntaxhighlight>
=={{header|jq}}==
Line 529 ⟶ 538:
{43,101,79,59,67}
</pre>
=={{header|Quackery}}==
<code>transpose</code> is defined at [[Matrix transposition#Quackery]].
<code>isprime</code> is defined at [[Primality by trial division#Quackery]].
<syntaxhighlight lang="Quackery"> ' [ 5 45 23 21 67 ]
' [ 43 22 78 46 38 ]
' [ 9 98 12 54 53 ]
3 pack transpose
[] swap witheach
[ unpack max max 1 -
[ 1+ dup isprime until ]
join ]
echo
</syntaxhighlight>
{{out}}
<pre>[ 43 101 79 59 67 ]</pre>
=={{header|Raku}}==
Line 669 ⟶ 699:
=={{header|Wren}}==
{{libheader|Wren-math}}
<syntaxhighlight lang="
var numbers1 = [ 5, 45, 23, 21, 67]
| |||