Calmo numbers: Difference between revisions
Added Quackery.
SqrtNegInf (talk | contribs) (Added Perl) |
(Added Quackery.) |
||
Line 740:
{{out}}
<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}}==
| |||