Primality by Wilson's theorem: Difference between revisions
Content added Content deleted
m (→{{header|Factor}}: use math.factorials) |
m (→{{header|Factor}}: remove unused vocab) |
||
Line 118: | Line 118: | ||
{{works with|Factor|0.99 2020-08-14}} |
{{works with|Factor|0.99 2020-08-14}} |
||
<lang factor>USING: formatting grouping io kernel lists lists.lazy math |
<lang factor>USING: formatting grouping io kernel lists lists.lazy math |
||
math.factorials math.functions |
math.factorials math.functions prettyprint sequences ; |
||
: wilson ( n -- ? ) [ 1 - factorial 1 + ] [ divisor? ] bi ; |
: wilson ( n -- ? ) [ 1 - factorial 1 + ] [ divisor? ] bi ; |