Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (15 sloc) 313 Bytes
(defun expmod (base exp m)
(cond ((= exp 0) 1)
((evenp exp)
(rem (expt (expmod base (/ exp 2) m) 2)
(rem (* base (expmod base (- exp 1) m))
(defun pro48 (n)
(let ((sum 0)
(m (expt 10 10)))
:for i from 1 upto n
:do (incf sum (expmod i i m)))
Something went wrong with that request. Please try again.