Math::Int128 - Manipulate 128 bits integers in Perl
use Math::Int128 qw(int128); my $i = int128(1); my $j = $i << 100; my $k = int128("1234567890123456789000000"); print($i + $j * 1000000);
This module adds support for 128 bit integers, signed and unsigned, to Perl.
In order to compile this module, the development version of GCC (which will eventually become GCC 4.6) that includes support for 128 bits arithmetic is required.
It can be installed as follows:
$ svn checkout svn://gcc.gnu.org/svn/gcc/trunk gcc $ cd gcc $ ./configure --disable-bootstrap --prefix=/usr/local/gcc $ make $ sudo make install
Then, to compile Math::Int128
$ cd ~/Math-Int128-* $ perl Makefile CC=/usr/local/gcc/bin/gcc $ make $ sudo make install
See Math::Int64. This module provides a similar set of functions, just
Besides that, as object allocation and destruction has been found to be a bottleneck, an alternative set of operations that use their first argument as the output (instead of the return value) is also provided.
int128_add, int128_sub mul int128_div int128_mod int128_divmod int128_and int128_or int128_xor int128_left int128_right int128_not int128_neg
and the corresponding
my $a = int128("1299472960684039584764953"); my $b = int128("-2849503498690387383748"); my $ret = int128(); int128_mul($ret, $a, $b); int128_add($ret, $ret, "12826738463"); say $ret;
int128_divmod returns both the result of the division and the remainder:
my $ret = int128(); my $rem = int128(); int128_divmod($ret, $rem, $a, $b);
Copyright (C) 2007, 2009, 2011 by Salvador Fandino (firstname.lastname@example.org)
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available.