diff options
| author | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2017-02-20 10:33:39 +0700 |
|---|---|---|
| committer | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2017-02-20 10:33:39 +0700 |
| commit | f2d4bc6b7c302dee2d84a3acf84b83b5a98c45fa (patch) | |
| tree | d40c38af8709309f51f3cf82bcbc2b44dbfaa3b7 /THT/B/QG-2016/remainder.scm | |
| parent | d40c9b81db3caff8ecca79df92241bc0c28a468c (diff) | |
| download | cp-f2d4bc6b7c302dee2d84a3acf84b83b5a98c45fa.tar.gz | |
More parentheses
Diffstat (limited to 'THT/B/QG-2016/remainder.scm')
| -rw-r--r-- | THT/B/QG-2016/remainder.scm | 3 |
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))) |