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