Games::Bingo::Column - a column class used for generating bingo cards
my $c = Games::Bingo::Column-E<gt>new();
foreach my $number(@numbers) {
$c-E<gt>populate($number);
}
my @numbers = qw(1 2 3 4 5 6 7 8 9);
my $c = Games::Bingo::Column-E<gt>new(@numbers);
my $number = $c-E<gt>get_highest_number();
The Column is used when building the bingo cards and is a temporary data structure.
The class has two attributes:
_array is a list of numbers for containment in the class, since the class actually is nothing but an array with a status flag.
The label being the group to which the numbers in the array belong.
The contructor optionally takes an array as an argument, and sets the _array attribute to point to this.
populate is a simple accessor which can be used to add additional number to the list of number contained in the class. This is a secondary use of the class, please refer to the description of the algoritms used in the program described in the Games::Bingo class.
The get_highest_number is also a simple accessor, it returns the highest number from the list contained in the class.
If the optional parameter is set to true, it splices the list contained in the class, meaning the class shrinks by 1. Default behaviour is not shrinking.
The get_random__number is also a simple accessor, it returns a random number from the list contained in the class.
If the optional parameter is set to true, it splices the list contained in the class, meaning the class shrinks by 1. Default behaviour is not shrinking. See also get_highest_number.
The method used by Perls sort to sort the list
Accessor returning the label of the G::B::Column object.
Returns the number of numbers contained in a G::B::Column object.
The TODO file contains a complete list for the whole Games::Bingo project.
jonasbn <jonasbn@cpan.org>
My friend Allan helped me out with some of the algoritmic stuff and was in on the development when this class was thought up.
Games::Bingo and related modules are free software and is released under the Artistic License. See <http://www.perl.com/language/misc/Artistic.html> for details.
Games::Bingo is (C) 2003 Jonas B. Nielsen (jonasbn) <jonasbn@cpan.org>
