about summary refs log tree commit diff
path: root/THT/B/QG-2016
diff options
context:
space:
mode:
Diffstat (limited to 'THT/B/QG-2016')
-rw-r--r--THT/B/QG-2016/remainder.scm3
1 files changed, 1 insertions, 2 deletions
diff --git a/THT/B/QG-2016/remainder.scm b/THT/B/QG-2016/remainder.scm
index 3df8468..8360da1 100644
--- a/THT/B/QG-2016/remainder.scm
+++ b/THT/B/QG-2016/remainder.scm
@@ -3,8 +3,7 @@
   (cond ((= y 1) (remainder x z))
          ((= (remainder y 2) 0) (remainder (sqr (pow x (quotient y 2) z)) z))
          (else (remainder (* (sqr (pow x (quotient y 2) z)) x) z))))
-(with-output-to-file "REMAINDER.TXT" (lambda ()
-                                       (for-each
+(with-output-to-file "REMAINDER.TXT" (lambda () (for-each
   (lambda (l)
     (let* ((a (integer-expt 10 (string-length (number->string (list-ref l 0)))))
            (m (* (list-ref l 2) (- a 1)))