修理牛棚（Barn Repair）

此题貌似和抄写员差不多。

在一个暴风雨的夜晚,农民约翰的牛棚的屋顶、门被吹飞了。 好在许多牛正在度假，所以牛棚没有住满。剩下的牛一个紧挨着另一个被排成一行来过夜。 有些牛棚里有牛，有些没有。 所有的牛棚有相同的宽度。自门遗失以后,农民约翰很快在牛棚之前竖立起新的木板。 他的新木材供应者将会供应他任何他想要的长度,但是供应者只能提供有限数目的木板。农民约翰想将他购买的木板总长度减到最少。 给出 M(1<= M<=50),可能买到的木板最大的数目;S(1<= S<=200),牛棚的总数;C(1 <= C <=S) 牛棚里牛的数目,和牛所在的牛棚的编号stall_number(1 <= stall_number <= S),计算拦住所有有牛的牛棚所需木板的最小总长度。 输出所需木板的最小总长度作为的答案。

PROGRAM NAME: barn1

INPUT FORMAT

第 1 行: M ， S 和 C(用空格分开) 
第 2 到 C+1行:  每行包含一个整数，表示牛所占的牛棚的编号。

SAMPLE INPUT (file barn1.in)

4 50 18
3
4
6
8
14
15
16
17
21
25
26
27
30
31
40
41
42
43
OUTPUT FORMAT

单独的一行包含一个整数表示所需木板的最小总长度。

SAMPLE OUTPUT (file barn1.out)

25

 

 

my @data = (3, 4,6,8,14,15,16,17,21,25,26,27,30,31,40,41,42,43);
my ($m, $s, $c) = (4, 50, 18);
my @result;

for(0..@data-1){
    $result[0][$_] = $data[-1]-$data[$_]+1;
}

for my $count (1.. $m-1){
    for my $starti(0..@data-$count -1){
        my $value = $s;
        for(my $ci = $starti; $ci<$c-$count; $ci++){
            my $tvalue = $data[$ci]-$data[$starti]+1 + $result[$count-1][$ci+1];
            $value = $tvalue if($value>$tvalue);
        }
        $result[$count][$starti] = $value;
    }
}
#out put the result
# y is the number of board
# x is the start index of cow
# the value is the minum length of board for block from the x cow to the end by y board
for(@result){
    print "@{$_} \n";
}

print $result[$m-1][0];