$r = $x * $y ** (1 - rand 2);

##</code><code>##

$r = $x * $y ** ((1 - rand 2) ** $n)