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