aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/Modular-exponentiation/Nim/modular-exponentiation.nim
View file

@ -1,18 +1,19 @@
import bigints
proc powmod(b, e, m: BigInt): BigInt =
assert e >= 0
assert e >= 0'bi
var e = e
var b = b
let t = 2'bi
result = initBigInt(1)
while e > 0:
if e mod 2 == 1:
while e > 0'bi:
if e mod t == 1'bi:
result = (result * b) mod m
e = e div 2
e = e div t
b = (b.pow 2) mod m
var
a = initBigInt("2988348162058574136915891421498819466320163312926952423791023078876139")
b = initBigInt("2351399303373464486466122544523690094744975233415544072992656881240319")
echo powmod(a, b, 10.pow 40)
echo powmod(a, b, 10'bi.pow 40)