diff options
| author | Bruce Hill <bruce@bruce-hill.com> | 2024-08-16 14:18:23 -0400 |
|---|---|---|
| committer | Bruce Hill <bruce@bruce-hill.com> | 2024-08-16 14:18:23 -0400 |
| commit | 04714e00d781235590553446301ac7e5818b3455 (patch) | |
| tree | 94f6a7ee3ebc3a49f5cbe6560e08255e9d7087ef /builtins/bool.c | |
| parent | 0f1c475bb485953ad0ae98fbb5a96d24c53d8414 (diff) | |
Add Bool:random(p=0.5)
Diffstat (limited to 'builtins/bool.c')
| -rw-r--r-- | builtins/bool.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/builtins/bool.c b/builtins/bool.c index 1e741be1..af2f0ac7 100644 --- a/builtins/bool.c +++ b/builtins/bool.c @@ -40,6 +40,11 @@ public Bool_t Bool$from_text(CORD text, bool *success) } } +public Bool_t Bool$random(double p) +{ + return (drand48() < p); +} + public const TypeInfo $Bool = { .size=sizeof(bool), .align=__alignof__(bool), |