Logo

Programming-Idioms

Given a real number a, print the fractional part and the exponent of the internal representation of that number. For 3.14, this should print (approximately)

0.785 2
New implementation

Be concise.

Be useful.

All contributions dictatorially edited by webmasters to match personal tastes.

Please do not paste any copyright violating material.

Please try to avoid dependencies to third-party libraries and frameworks.

Other implementations
#include <math.h>
#include <stdio.h>
  double d = 3.14;
  double res;
  int e;

  res = frexp(d, &e);
  printf("%f %d\n",res,e);
a = 3.14
print *,fraction(a), exponent(a)
import "math"
fmt.Println(math.Frexp(a))
function frexp(a) {
    exponent = ( Math.floor(Math.log(a, 2)) + 1 )
    mantissa = ( a * Math.pow(2, -a) )

    return [ mantissa, exponent ]
}
local function frexp(a)
	return math.frexp(a)
end
uses math;
var
  d: double;
  Mantissa: double;
  Exponent: integer;
begin
  d := 3.14;
  frexp(d, Mantissa, Exponent);
  writeln('Mantissa: ',Mantissa:6:5,', Exponent: ',Exponent);
end.
use POSIX qw(frexp);
my ($mantissa, $exponent) = frexp $a;
printf "%f %d\n", $mantissa, $exponent;
import math
print(math.frexp(a))
puts Math::frexp(a)