Scheme（Racket）得到一个随机布尔值，大概为0＆lt; p＆lt; 1

Question

在Racket方案中，获得随机布尔值的最佳方法是什么，其概率为0＆lt; = p＆lt; = 1？

Answer 1

这是一个解决方案，您可以明确概率：

#lang racket
(require math)
(define d (discrete-dist '(#t #f) '(0.6 0.4)))
(sample d 10)

示例输出：

'(#f #t #t #t #t #f #t #f #f #t)

Answer 2

如评论中所述，一个简单的解决方案是：

（＆lt;（random）p）