Select Code to Download

perl -e 'use bigrat;for my $n (1..5){my $s=0;for my $i (1..$n) {$s+=($
+n+1-$i)/$i} push @nums, $s->numerator; push @dens, $s->denominator; $
+num=$s->numerator; $den=$s->denominator; print "n = $n, s = $s, num=$
+num, den=$den\n";} print "nums=",(join ", ",@nums), "\n"; print "dens
+=",(join ", ",@dens),"\n";'

#!/usr/bin/perl -w
use bigrat;
...
}
print "nums=", (join ", ", @nums), "\n";
print "dens=", (join ", ", @dens), "\n";