Select Code to Download

#! /usr/bin/perl
use strict;
...
}

print "$_: ", partitions($_), "\n" for @ARGV;

#! /usr/bin/perl -w
use strict;
...
}

print "$_: ", partitions($_), "\n" for @ARGV;

sub partitions {
  my $n = shift;
...
  }
  return $partitions[$n];
}

sub partitions {
  my $n = shift;
...
  }
  return $partitions[$n];
}

sub linear_sequence {
  my ($start, $inc) = @_;
...
          "  Rearranged:  $rearranged_sum\n";
  }
}

#! /usr/bin/perl
use strict;
...
  my $self = shift;
  #warn("Node: $self->{data} destroyed");
}