Minimum primes: Difference between revisions

Content added Content deleted
(→‎J: add)
(Added Quackery.)
Line 538: Line 538:
{43,101,79,59,67}
{43,101,79,59,67}
</pre>
</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
[ behead
swap witheach max
[ dup isprime not while
1+ again ]
join ]
echo</syntaxhighlight>

{{out}}

<pre>[ 43 101 79 59 67 ]</pre>


=={{header|Raku}}==
=={{header|Raku}}==