Factorial primes: Difference between revisions
Content added Content deleted
(Added Quackery.) |
(simplified Quackery entry) |
||
Line 1,289: | Line 1,289: | ||
=={{header|Quackery}}== |
=={{header|Quackery}}== |
||
<code> |
<code>!</code> is defined at [[Factorial#Quackery]]. |
||
<code>isprime</code> is defined at [[Primality by trial division#Quackery]]. |
|||
<syntaxhighlight lang="Quackery"> [ 1 swap times [ i 1+ * ] ] is ! ( n --> n ) |
|||
[ dup 10 < if sp echo ] is recho ( n --> ) |
<syntaxhighlight lang="Quackery"> [ dup 10 < if sp echo ] is recho ( n --> ) |
||
[] 0 |
[] 0 |
||
Line 1,299: | Line 1,299: | ||
dup dip |
dup dip |
||
[ 1 - isprime if |
[ 1 - isprime if |
||
[ tuck |
[ tuck negate join swap ] ] |
||
nested join swap ] ] |
|||
1+ isprime if |
1+ isprime if |
||
[ tuck |
[ tuck join swap ] |
||
nested join swap ] |
|||
over size 9 > until ] |
over size 9 > until ] |
||
drop 10 split drop |
drop 10 split drop |
||
Line 1,309: | Line 1,307: | ||
[ i^ 1+ |
[ i^ 1+ |
||
recho say ": " |
recho say ": " |
||
dup abs tuck recho |
|||
0 < iff |
0 < iff |
||
[ say "! - 1 = " ] |
[ say "! - 1 = " -1 ] |
||
else |
else |
||
[ say "! + 1 = " ] |
[ say "! + 1 = " 1 ] |
||
swap ! + echo cr ]</syntaxhighlight> |
|||
{{out}} |
{{out}} |