Unbias a random generator: Difference between revisions
Content added Content deleted
(J) |
(J: bugfix (needed parenthesis) and cleanup) |
||
Line 11: | Line 11: | ||
<lang j>biased=: 0 = ? |
<lang j>biased=: 0 = ? |
||
unbiased=: i.@# { 2 | 0 3 -.~ _2 #.\ biased@# |
unbiased=: (i.@# { 2 | 0 3 -.~ _2 #.\ +: biased@# ]) ::$:</lang> |
||
Example use: |
Example use: |