Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
 1 665c255d 2023-08-04 jrmu (setf custom:*trace-indent* 1)

 2 665c255d 2023-08-04 jrmu 

 3 665c255d 2023-08-04 jrmu (trace expmod)

 4 665c255d 2023-08-04 jrmu (expmod 15 10 10)

 5 665c255d 2023-08-04 jrmu ((defun louid-expmod (base exponent m)

 6 665c255d 2023-08-04 jrmu    (cond ((= exponent 0) 1)

 7 665c255d 2023-08-04 jrmu 	 ((evenp exponent)

 8 665c255d 2023-08-04 jrmu 	  (rem (* (louis-expmod base (/ exponent 2) m)

 9 665c255d 2023-08-04 jrmu 		  (louid-expmod base (/ exponent 2) m))

10 665c255d 2023-08-04 jrmu 	       m))

11 665c255d 2023-08-04 jrmu 	 (t (rem (* base louid-expmod base (- exponent 1) m)) 

12 665c255d 2023-08-04 jrmu 	         m))))