Calmo numbers: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl) |
(Added Quackery.) |
||
Line 740: | Line 740: | ||
{{out}} |
{{out}} |
||
<pre>Same as FreeBASIC entry.</pre> |
<pre>Same as FreeBASIC entry.</pre> |
||
=={{header|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 |
|||
factors dup size 3 < iff |
|||
[ drop not ] done |
|||
1 split nip |
|||
-1 split drop |
|||
dup size 3 mod 0 != iff |
|||
[ drop not ] done |
|||
[ 3 split |
|||
0 rot witheach + |
|||
isprime not iff |
|||
[ dip not ] done |
|||
dup [] = until ] |
|||
drop ] is calmo ( n --> b ) |
|||
[] 1000 times [ i^ calmo if [ i^ join ] ] |
|||
echo |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre>[ 165 273 385 399 561 595 665 715 957 ]</pre> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |