blob: 209bcb2357960fa24332fb5eb36b52fc6b9bc0ec (
plain) (
blame)
1
2
3
4
5
6
7
|
use strict;
use warnings;
my @crabs = sort { $a <=> $b } split(/,/, <>);
my $median = $crabs[@crabs / 2];
my $cost = 0;
$cost += abs($_ - $median) for @crabs;
print "$cost\n";
|