#!/usr/local/bin/perl

srand( time() ^ ($$ + ($$ << 15)));

#$rulefile = "/afs/cs.cmu.edu/project/avenue-1/Avenue/Transfer/Hebrew/heb-eng.man.25may04-scored2.trf";
$rulefile = "/afs/cs.cmu.edu/project/avenue-1/Avenue/Hebrew-MT/Dict/Enhance/full-dict.10nov04.enh.fs.scored.txt";

open(RULES, $rulefile) or die $!;


while ($line = <RULES>) {
    if ($line =~ m/\*score\*\s+(\-?[0-9]+(\.[0-9]+)?)/) {
	$score = $1;
	#print "$score\n";
	push @scores, $score;
    }
}

close(RULES);


for ($i = 0; $i < 3; $i++) {
    # Randomize the scores
    for ($k = 0; $k < 10; $k++) {
	for ($j = 0; $j < scalar(@scores); $j++) {
	    $switch = int(rand scalar(@scores));
	    $tmp = $scores[$i];
	    $scores[$i] = $scores[$switch];
	    $scores[$switch] = $tmp;
	}
    }

    $randfile = $rulefile . ".r$i";
    $counter = 0;

    open(RULES, $rulefile) or die $!;
    open(RANDOM, "> $randfile") or die $!;
    while ($line = <RULES>) {
	if ($line =~ m/\*score\*\s+(\-?[0-9]+(\.[0-9]+)?)/) {
	    $line =~ s/\*score\*\s+(\-?[0-9]+(\.[0-9]+)?)/"*score* " . $scores[$counter]/e;
	    print RANDOM $line;
	    $counter++;
	} else {
	    print RANDOM $line;
	}
    }

    close(RULES);
    close(RANDOM);
}