#!usr/bin/perl
use strict;
require "core.pl";

my (@a,$p,$sum);
my @Names = ("Attacker","Defender");

while ($a != -1) {
print "D A T HD HA\n";
chomp(my $a=<STDIN>);
my @a = split (/ /, $a);
($p->{Defender}, $sum->{Defender}) = &core(@a,1);
($p->{Attacker}, $sum->{Attacker}) = &core(@a);

foreach (@Names) {
print "\n$_ Victory :\n-----\n";
print "$_ Wins with probability ".sprintf("%.6g", $p->{$_})."\n";
print "Flawless Victory Probability ".$sum->{$_}[0]."\n";
for (my $z=1; $z<scalar(@{$sum->{$_}}); $z++) {
	print "$z HP Loss for $_ Prob : ".$sum->{$_}[$z]."\n";
}
}
print "\n\n";
}
#print "\n<Enter to Continue>";$a=<STDIN>;