Factorial primes: Difference between revisions

</pre>

=={{header|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 --> )

[] 0

[ 1+ dup !

dup dip

[ 1 - isprime if

[ tuck -1 join

nested join swap ] ]

1+ isprime if

[ tuck 1 join

nested join swap ]

over size 9 > until ]

drop 10 split drop

witheach

[ i^ 1+

recho say ": "

do 2dup swap recho

0 < iff

[ say "! - 1 = " ]

else

[ say "! + 1 = " ]

dip ! + echo cr ]</syntaxhighlight>

{{out}}

<pre> 1: 1! + 1 = 2

2: 2! + 1 = 3

3: 3! - 1 = 5

4: 3! + 1 = 7

5: 4! - 1 = 23

6: 6! - 1 = 719

7: 7! - 1 = 5039

8: 11! + 1 = 39916801

9: 12! - 1 = 479001599

10: 14! - 1 = 87178291199