如何在Racket中将实数转换为精确整数？

Question

如何将20.2形式的值转换为(random ...)接受的内容？

我试过这些：

;; x defined by some earlier maths and of form 20.2

(random (round x))
(random (floor x))

但两人都回归：

random: contract violation
expected: (or/c (integer-in 1 4294967087) pseudo-random-generator?)
given: 20.0

Answer 1

这些也有效，根据documentation，他们只是你方法的缩写：

(random (exact-round x))
(random (exact-floor x))

Answer 2

本文似乎回答了Scheme的问题： http://computer-programming-forum.com/40-scheme/674db7a1706960d5.htm

所以使用这样的代码，我得到了我想要的结果：

(random (inexact->exact (round x)))
(random (inexact->exact (floor x)))

这是最简单的方法吗？