($a,$b,$c)=glob<>; $r=($c-$b)/($b-$a); $d=$b-$r*$a; print$r*$c+$d;