Factorial primes: Difference between revisions
Content added Content deleted
(Added Lua) |
(Added Quackery.) |
||
Line 1,285: | Line 1,285: | ||
872! + 1 = 19723152008295244962...00000000000000000001 (2188 digits) |
872! + 1 = 19723152008295244962...00000000000000000001 (2188 digits) |
||
974! - 1 = 55847687633820181096...99999999999999999999 (2490 digits) |
974! - 1 = 55847687633820181096...99999999999999999999 (2490 digits) |
||
</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 |
|||
</pre> |
</pre> |
||