RosettaCodeData/Task/Modular-exponentiation/Seed7/modular-exponentiation-1.seed7

10 lines
312 B
Text
Raw Permalink Normal View History

2013-06-05 21:47:54 +00:00
$ include "seed7_05.s7i";
include "bigint.s7i";
const proc: main is func
begin
writeln(modPow(2988348162058574136915891421498819466320163312926952423791023078876139_,
2351399303373464486466122544523690094744975233415544072992656881240319_,
10_ ** 40));
end func;