#!/usr/bin/perl
# Get to Flopside with Perl !
use POSIX;

my @blocks = (
  0b10101101,
  0b11010110,
  0b10111010,
  0b01111001,
  0b11101010,
  0b00011111,
  0b01100111,
  0b11010101
);

while(true)
{
  my $state = 0b00000000;
  for($i=0; $i < 8; $i++)
  {
    my $randIndex, blockNum;
    $randIndex = floor(rand(8));
    $state ^= $blocks[$randIndex]; 
    $blockNum = $randIndex + 1;
    print "Block $blockNum\n";

    if($state == 0b11111111)
    {
      print "Winner!\n\n";
      exit(0);
    }
  }
  print "\n";
}