Programming-Idioms

d = (s?-1:1) * m * double.Exp10(e);

  if (s) then
    d = -m * radix(d)**e
  else
    d =  m * radix(d)**e
  end if

if s {
	m = -m
}
d := math.Ldexp(m, e)

d.buildup(s, m, e);

$d = ($s?-1:1) * "${m}e${e}"; 

sign = -1 if s else 1
d = math.ldexp(sign*m,e)

d = (s ? -1 : 1) * Math::ldexp(m, e)

let d = if s { -1.0 } else { 1.0 } * m as f64 * 2.0f64.powf(e as f64);