sunterlib/s48/srfi-10/test/math.scm

5 lines
152 B
Scheme

;; This code, written by Taylor Campbell, is in the public domain.
(define (circumference r) (* '#,(pi) 2 r))
(define (area r) (* '#,(pi) (expt r 2)))