[functional-tests] Add math-utils library

2017-12-12 15:23:51 +00:00 · 2017-12-12 15:23:51 +00:00 · 4bb99bf105
parent 79c0159108
commit 4bb99bf105
1 changed files with 10 additions and 0 deletions
--- a/functional-tests/math-utils.scm
+++ b/functional-tests/math-utils.scm
@ -0,0 +1,10 @@
+(library
+  (math-utils)
+
+  (export div-up)
+
+  (import (chezscheme))
+
+  (define (div-up n d)
+    (/ (+ n (- d 1)) d))
+  )