11 lines
121 B
Scheme
11 lines
121 B
Scheme
(library
|
|
(math-utils)
|
|
|
|
(export div-up)
|
|
|
|
(import (chezscheme))
|
|
|
|
(define (div-up n d)
|
|
(/ (+ n (- d 1)) d))
|
|
)
|