diff options
| author | rsiddharth <s@ricketyspace.net> | 2017-01-07 04:35:55 +0000 |
|---|---|---|
| committer | rsiddharth <s@ricketyspace.net> | 2017-01-07 04:35:55 +0000 |
| commit | 8d6bb0aee4679f874ddfb6f7edd8945852cb9c99 (patch) | |
| tree | 84bbef41e1294ccbe96d6fd12768dd6d49b5403b | |
| parent | 04fcdb04e2983f9b0ad0cfdb5e36ba04511bc121 (diff) | |
one/fifteen.scm: fix log function.
| -rw-r--r-- | one/fifteen.scm | 4 |
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))))))))))" |