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