###########################################################################

# Generates some test patterns 
# Stefan Doll, sdoll@intrinsix.com
#

# Usage:
#
# perl tgen.pl > _output_file_
#
#

###########################################################################

print "00010\n";
print "00011\n";
print "11100\n";

for ($i=0;$i<10;$i++) {
   print num2binary($i,5)."\n";
}

print "1UXZW\n";
print "HL111\n";
print "11111\n";



sub num2binary {
   my($num) = @_;
   my $binary = $num ? '' : '0';    # in case $num is zero
   my $len = $_[1];
   my $result;

   while ($num) {
      $binary .= $num & 1 ? 1 : 0;  # do the LSB
      $num >>= 1;                   # on to the next bit
   }

   $result = scalar reverse $binary;
   while (length($result)<$len) {
      $result = "0".$result;
   }

   return $result;
}