scheme/math/main.scm · 96 字节 · 下载原文

(define (square x) (* x x))
(define (cube x) (* x x x))
(define (average a b) (/ (+ a b) 2))