Scheme (Racket) 获取随机布尔值,可能为 0 < p < 1

Scheme (Racket) Getting a random boolean with probably 0 < p < 1

在 Racket 方案中,获得概率为 0 <= p <= 1 的随机布尔值的最佳方法是什么?

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

(<(随机)p)

这是一个解决方案,您可以在其中明确说明概率:

#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)