Project Euler 31

PE31.pl

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

sub calc{
    my $L = shift;
    my @coin = $#_ == 0 ? @{$_[0]} : @_;
    
    my @dp = (0) x ($L + 1);
    $dp[0] = 1;

    foreach my $c (@coin){
	for(my $i=$c; $i<=$L; $i++){
	    $dp[$i] += $dp[$i - $c];
	}
    }
    return $dp[$L];
}

print calc(200,[1,2,5,10,20,50,100,200]), "\n";