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