Calmo numbers: Difference between revisions
Content added Content deleted
(Add Factor) |
(→{{header|Quackery}}: replaced isprime not with factors size 2 !=) |
||
| Line 763: | Line 763: | ||
<code>factors</code> is defined at [[Factors of an integer#Quackery]]. |
<code>factors</code> is defined at [[Factors of an integer#Quackery]]. |
||
<code>isprime</code> is defined at [[Primality by trial division#Quackery]]. |
|||
<syntaxhighlight lang="Quackery"> [ true swap |
<syntaxhighlight lang="Quackery"> [ true swap |
||
| Line 775: | Line 773: | ||
[ 3 split |
[ 3 split |
||
0 rot witheach + |
0 rot witheach + |
||
factors size 2 != iff |
|||
[ dip not ] done |
[ dip not ] done |
||
dup [] = until ] |
dup [] = until ] |
||
| Line 787: | Line 785: | ||
<pre>[ 165 273 385 399 561 595 665 715 957 ]</pre> |
<pre>[ 165 273 385 399 561 595 665 715 957 ]</pre> |
||
=={{header|Raku}}== |
=={{header|Raku}}== |
||