for(<>){$i=-1;/./;$c=$&;s/$c/++$i?():()/eg;
printf"%0.6f\n",$i/($i-2+length)}