Perl
sub returns {
my $buy = $_[0];
my $now = $_[1];
# (현재가 - 구입가) / 구입가 * 100 - 세금
return sprintf("%.3f", ($now - $buy) / $buy * 100 - 0.315);
}
my $buy = $_[0];
my $now = $_[1];
# (현재가 - 구입가) / 구입가 * 100 - 세금
return sprintf("%.3f", ($now - $buy) / $buy * 100 - 0.315);
}
Show Comments