(defconstant +mod+ 1000000007) (defun %mod-expt (a n m) (let ((result 1)) (loop while (> n 0) when (oddp n) do (setq result (mod (* result a) m)) do (setq a (mod (* a a) m)) (setq n (ash n -1))) result)) (defun main (&rest argv) (declare (ignorable argv)) (let* ((n (- (read) 2)) (a (read)) (b (read)) (c (read)) (aa 0) (bb 0) (cc 0)) (setq aa (- a b) bb (- b c) cc (- c a)) (when (>= n 6) (setq aa (* aa (%mod-expt -27 (floor n 6) +mod+)) bb (* bb (%mod-expt -27 (floor n 6) +mod+)) cc (* cc (%mod-expt -27 (floor n 6) +mod+)))) (dotimes (_ (mod n 6)) (let ((aaa aa) (bbb bb) (ccc cc)) (setq aa (- aaa bbb) bb (- bbb ccc) cc (- ccc aaa)))) (format t "~d ~d ~d~%" (mod aa +mod+) (mod bb +mod+) (mod cc +mod+)))) (main)