diff options
| author | Kevin Ryde <user42@zip.com.au> | 2004-04-12 01:18:13 +0200 |
|---|---|---|
| committer | Kevin Ryde <user42@zip.com.au> | 2004-04-12 01:18:13 +0200 |
| commit | d466b76bdbac7b1a07a41da3674729fc4a2eba5b (patch) | |
| tree | c17c932b0e1443d323b0ae23b2a2c0db2d779309 /demos | |
| parent | d8572b9b85c7769bb7035c34a960210240c80ed9 (diff) | |
| download | gmp-d466b76bdbac7b1a07a41da3674729fc4a2eba5b.tar.gz | |
* demos/perl/sample.pl: Print the module and library versions in use.
Diffstat (limited to 'demos')
| -rw-r--r-- | demos/perl/sample.pl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/demos/perl/sample.pl b/demos/perl/sample.pl index 1f87420fd..81267678f 100644 --- a/demos/perl/sample.pl +++ b/demos/perl/sample.pl @@ -2,7 +2,7 @@ # Some sample GMP module operations -# Copyright 2001 Free Software Foundation, Inc. +# Copyright 2001, 2004 Free Software Foundation, Inc. # # This file is part of the GNU MP Library. # @@ -24,6 +24,10 @@ use strict; +use GMP; +print "GMP module version $GMP::VERSION using GMP library $GMP::version\n"; + + use GMP::Mpz qw(:all); print "the 200th fibonacci number is ", fib(200), "\n"; print "next prime after 10**30 is (probably) ", nextprime(mpz(10)**30), "\n"; |