about summary refs log tree commit diff
path: root/THT/B
diff options
context:
space:
mode:
authorRaphael McSinyx <vn.mcsinyx@gmail.com>2017-02-20 10:33:39 +0700
committerRaphael McSinyx <vn.mcsinyx@gmail.com>2017-02-20 10:33:39 +0700
commitf2d4bc6b7c302dee2d84a3acf84b83b5a98c45fa (patch)
treed40c38af8709309f51f3cf82bcbc2b44dbfaa3b7 /THT/B
parentd40c9b81db3caff8ecca79df92241bc0c28a468c (diff)
downloadcp-f2d4bc6b7c302dee2d84a3acf84b83b5a98c45fa.tar.gz
More parentheses
Diffstat (limited to 'THT/B')
-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)))