Re: Contribution to perl 6 - week 9 Hash.pick

[yary]

> or, if you want to use bit ops and integer math, "$l +> 1 + $r +> 1 +
> ($l mod 2 + $r mod 2) +> 1"

Just because I find a perverse pleasure in this-

$mid = $r+>1+$l+>1+($r+&$l+&1)

-y