use strict;  
use warnings;

my %coordinates;
$coordinates{A} = [0,0];
$coordinates{B} = [0,633];
$coordinates{C} = find_coord(257, 390, undef);
$coordinates{D} = find_coord(91, 661, 228);

print "@{$coordinates{D}} \n";


sub find_coord {
	my ($a, $b, $c) = @_;
	my $sq_dist_dif = $a*$a - $b*$b;
	my $y = $sq_dist_dif/(633*2) + 633/2;
	my $x = sqrt ($a*$a - $y*$y);
	return [$x, $y] unless defined $c;
	my $dist_2_c_1 = distance ([$x, $y], $coordinates{C}, $c);
	my $dist_2_c_2 = distance ([-$x, $y], $coordinates{C}, $c);
	$dist_2_c_1 < $dist_2_c_2 ? [$x, $y, $dist_2_c_1] : [-$x, $y, $dist_2_c_2];
}
sub distance {
	return abs (sqrt (($_[0][0] - $_[1][0])**2 + ($_[0][1] - $_[1][1])**2) - $_[2]);
}