Perl を思い出してみる

mission2.pl

#! /usr/bin/perl
 
use strict;
use warnings;

my ($length,@lines) = (<STDIN>,<STDIN>);
print(&total_price(@lines[0..$length -1]));

sub total_price {
	my $total_price = 0;
	foreach(@_) {
		my @cols = split(/ /,$_);
		my $shortage = $cols[0] - $cols[1];
		my $price = $cols[2];
		$total_price += $shortage * $price if $shortage > 0;
	}
	return $total_price;
}