Logo

Programming-Idioms

  • Go
  • Perl

Idiom #192 Declare a real variable with at least 20 digits

Declare a real variable a with at least 20 digits; if the type does not exist, issue an error at compile time. 

use bignum;
my $a = 12345678901234567890.1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890;
import "math/big"
a, _, err := big.ParseFloat("123456789.123456789123465789", 10, 200, big.ToZero)

2nd arg is the base.
3rd arg is the precision.
4th arg is the rounding mode.
The precision is the maximum number of mantissa bits available to represent the value.
(def a 1234567890.12345678901M)

java.math.BigDecimal
New implementation...
< > ⌨
tkoenig 
my $a = 12345678901234567890.1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890;
a, _, err := big.ParseFloat("123456789.123456789123465789", 10, 200, big.ToZero)
(def a 1234567890.12345678901M)
decimal a = 1234567890.12345678901m;
  integer, parameter :: qp = selected_real_kind(20)
  real(kind=qp) :: a

String pi = "3.14159265358979323846";
MathContext m = new MathContext(21, HALF_UP);
BigDecimal a = new BigDecimal(pi, m);
a = decimal.Decimal('1234567890.123456789012345')
a = BigDecimal('1234567890.12345678901')
let a = Decimal::from_str("1234567890.123456789012345").unwrap();