Factors of a Mersenne number: Difference between revisions
→{{header|jq}}: no need for call to reverse
(→{{header|jq}}: no need for call to reverse) |
|||
Line 1,887:
def trialFactor($base; $exp; $mod):
| reduce range( 0; $
(. * . * (if $bits[$length-$i-1] == 1 then $base else 1 end)) % $mod )
| . == 1 ;
| |||