math.scm 193 B

123456789101112
  1. (define-module (utils math))
  2. (define-public exact-floor
  3. (lambda (num)
  4. (inexact->exact (floor num))))
  5. (define-public exact-ceiling
  6. (lambda (num)
  7. (inexact->exact (ceiling num))))