Select Code to Download

    unless ( $A > 0 && $B > 0 && $C > 0 ) {
        if ( $A > 0 && $B > 0 ) { $var = "C" }
...
            $other = 180 - $sum;
            $angles{$var} = $other;
            $A = sprintf( "%.10f", Math::NumberCruncher::deg2rad( $oth
+er ) );

if (grep $_ <= 0, @{$angles->[0]}{('A' .. 'C')}) {
    my $zero_angle = 'A';
...
    $angles->[0]{$zero_angle} = 
        sprintf( "%.10f", Math::NumberCruncher::deg2rad( $other ) );
}