RosettaCodeData/Task/Modular-exponentiation/Racket/modular-exponentiation.rkt

7 lines
237 B
Racket

#lang racket
(require math)
(define a 2988348162058574136915891421498819466320163312926952423791023078876139)
(define b 2351399303373464486466122544523690094744975233415544072992656881240319)
(define m (expt 10 40))
(modular-expt a b m)