use Perl

Well my girlfriend invited me to a bingo friday night.

No I am not the bingo playing age, but it was fun and it was for a good cause (funding a schooltrip to Iceland).

Well the whole bingo thing was run on a large screen, actually due to the face that the organisers were def.

Looking the computer program I came to think I actually never made a bingo game for my computer, so here goes first draft for bingo.pl


#!/usr/bin/perl -w

use strict;
use POSIX;

my @numbers;
my @taken;

init(\@numbers, \@taken);

while(scalar @numbers) {
        my $pos = POSIX::floor(rand(scalar @numbers));
        my $number = $numbers[$pos];
        #print "number = $number\n";
        splice(@numbers, $pos, 1);

        take(\@taken, $number);
        system("clear");
        show_taken(\@taken);
}

sub init {
        my $numbers = shift;
        my $taken = shift;

        for(my $i = 1; $i 0)) {
                                @$taken->[$j][$k] = " ";
                        } else {
                                @$taken->[$j][$k] = "[ ]";
                        }
                }
        }
}

sub show_taken {
        my $taken = shift;

        for (my $m = 0; $m [$m][$n];
                }
                print "\n";
        }
}

sub take {
        my $taken = shift;
        my $take = shift;

        my $take2 = sprintf("%02d", $take);
        my ($x, $y) = $take2 =~ m/^(\d{1})(\d{1})$/;

        @$taken->[$x][$y] = '['.$take2.']';
}


  with the following benchmark:

0.850u 1.340s 0:05.01 43.7% 0+0k 0+7io 0pf+0w

I DO NOT recommend this game to old people it could prove hazardous.

I have committed bingo.pl to the Copenhagen.pm CVS server snippes section, check there for updates...