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}}== |