diff options
| -rw-r--r-- | sly/math.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/sly/math.scm b/sly/math.scm index 55d176e..0f7ede3 100644 --- a/sly/math.scm +++ b/sly/math.scm @@ -33,7 +33,7 @@ cotan clamp linear-scale - half)) + half square)) ;; Dave was editing this module on Pi Approximation Day. ;; @@ -106,3 +106,6 @@ actually less than MAX." (define (half x) (/ x 2)) + +(define (square x) + (* x x)) |