#!/usr/bin/env perl

require 5.008001;
use diagnostics;
use strict;

my $PROJ_HOME = $ENV{PROJ_HOME};

##### BEGIN #####

my $LINE_CNT = 150;
my $OUT_FILE = $PROJ_HOME."/vectors/golden_vectors";
my $LEFT_OPERAND = 0;
my $RIGHT_OPERAND = 0;
my $RESULT = 0;

open OUT_FILE, "> $OUT_FILE" or die "Can't open $OUT_FILE!\n";

for(my $i = 0; $i < $LINE_CNT; $i++)
{
    $LEFT_OPERAND = int(rand(2**16));
    $RIGHT_OPERAND = int(rand(2**16));
    $RESULT = $LEFT_OPERAND * $RIGHT_OPERAND;
    printf OUT_FILE "%016b %016b %032b\n", $LEFT_OPERAND, $RIGHT_OPERAND, $RESULT;
}

close OUT_FILE;
