Select Code to Download

#!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__