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-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

31
Task/Modular-exponentiation/Refal/modular-exponentiation.refal Normal file
View file

@ -0,0 +1,31 @@
$ENTRY Go {
, '2988348162058574136915891421498819466320163312926952423791023078876139': e.A
, '2351399303373464486466122544523690094744975233415544072992656881240319': e.B
= <Prout <Symb <ModPow
(<Numb e.A>) (<Numb e.B>) (<Pow (10) (40)>)>>>;
};
ModPow {
(e.B) (e.P) (e.M) = <ModPow (e.B) (e.P) (e.M) (1)>;
(e.B) (0) (e.M) (e.R) = e.R;
(e.B) (e.P) (e.M) (e.R),
<Divmod (e.P) 2>: (e.P2) s.S,
<Mod (<Mul (e.B) e.B>) e.M>: e.B2,
s.S: {
0 = <ModPow (e.B2) (e.P2) (e.M) (e.R)>;
1, <Mod (<Mul (e.R) e.B>) e.M>: e.R2 =
<ModPow (e.B2) (e.P2) (e.M) (e.R2)>;
};
};
Pow {
(e.B) (e.P) = <Pow (e.B) (e.P) (1)>;
(e.B) (0) (e.R) = e.R;
(e.B) (e.P) (e.R),
<Mul (e.B) e.B>: e.B2,
<Divmod (e.P) 2>: (e.P2) s.S,
s.S: {
0 = <Pow (e.B2) (e.P2) (e.R)>;
1 = <Pow (e.B2) (e.P2) (<Mul (e.B) e.R>)>;
};
};