summaryrefslogtreecommitdiffstats
path: root/one
diff options
context:
space:
mode:
authorrsiddharth <s@ricketyspace.net>2017-01-07 04:35:55 +0000
committerrsiddharth <s@ricketyspace.net>2017-01-07 04:35:55 +0000
commit8d6bb0aee4679f874ddfb6f7edd8945852cb9c99 (patch)
tree84bbef41e1294ccbe96d6fd12768dd6d49b5403b /one
parent04fcdb04e2983f9b0ad0cfdb5e36ba04511bc121 (diff)
one/fifteen.scm: fix log function.
Diffstat (limited to 'one')
-rw-r--r--one/fifteen.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/one/fifteen.scm b/one/fifteen.scm
index 1b2ac24..0698bb8 100644
--- a/one/fifteen.scm
+++ b/one/fifteen.scm
@@ -10,7 +10,7 @@
(let ((out ""))
(define (log angle)
(set! out (string-append out " (p (sine "
- (number->string angle))))
+ (number->string (/ angle 3.0)))))
(define (close-parens s)
(string-trim (string-append
s (fold-matches "\\([p,s]" s ""
@@ -28,4 +28,4 @@
(close-parens out)))
;;
;; (sine 12.15)
-;; $24 = "(p (sine 12.15 (p (sine 4.05 (p (sine 1.3499999999999999 (p (sine 0.44999999999999996 (p (sine 0.15))))))))))"
+;; $25 = "(p (sine 4.05 (p (sine 1.3499999999999999 (p (sine 0.44999999999999996 (p (sine 0.15 (p (sine 0.049999999999999996))))))))))"