Help for this page
#!perl use warnings; use strict;
{ # a natural number represented as a Zeckendorf sum package Zeckendorf;
use warnings; use strict; use 5.012; use Scalar::Util; use Math::BigInt; ... $r; }
sub _norm { ... }
if (0) { # perform some random tests on the Zeckendorf class. disabled + by default because slow. for my $i (1 .. 100) { ... $s == $z->val or die; } }
{ # demonstrate ... } __END__
www.com | www.net | www.org
No recent polls found