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