RosettaCodeData/Task/Modified-random-distribution/J/modified-random-distributio...

8 lines
96 B
Plaintext

probmod=: {{y
while.do.r=.?0 0
if. (<u)/r do. {:r return.end.
end.
}}
mod=: {{|1-2*y}}