Factorial primes: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: note re 15-17 begin shown in full.) |
(Add Factor) |
||
Line 121: | Line 121: | ||
31: 546!-1 -> 14130200926141832545..99999999999999999999 [1260 digits] |
31: 546!-1 -> 14130200926141832545..99999999999999999999 [1260 digits] |
||
</pre> |
</pre> |
||
=={{header|Factor}}== |
|||
{{works with|Factor|0.99 2022-04-03}} |
|||
<lang factor>USING: formatting kernel math math.primes ; |
|||
: .fp ( i n sgn f -- ) |
|||
"%2d:%4d! %s 1 = %d\n" printf ; |
|||
[let |
|||
1 1 1 :> ( i! n! f! ) |
|||
[ i 11 < ] [ |
|||
f 1 - prime? [ i n "-" f .fp i 1 + i! ] when |
|||
f 1 + prime? [ i n "+" f .fp i 1 + i! ] when |
|||
n 1 + n! |
|||
f n * f! |
|||
] while |
|||
]</lang> |
|||
{{out}} |
|||
<pre> |
|||
1: 1! + 1 = 1 |
|||
2: 2! + 1 = 2 |
|||
3: 3! - 1 = 6 |
|||
4: 3! + 1 = 6 |
|||
5: 4! - 1 = 24 |
|||
6: 6! - 1 = 720 |
|||
7: 7! - 1 = 5040 |
|||
8: 11! + 1 = 39916800 |
|||
9: 12! - 1 = 479001600 |
|||
10: 14! - 1 = 87178291200 |
|||
</pre> |
|||
=={{header|J}}== |
=={{header|J}}== |
||
<lang J> (,. (-!)/"1)1>.(,. >.@(!inv)@<:) (#~ 1 p: ]) ~.,(!i.27x)+/1 _1 |
<lang J> (,. (-!)/"1)1>.(,. >.@(!inv)@<:) (#~ 1 p: ]) ~.,(!i.27x)+/1 _1 |