Select Code to Download

#!env perl
#
...

my $result = f(0,0);
print "Result: ", p($result), "\n";

$ perl PWC_100_min_path_sum.pl
Result: 8 (1, 4, 2, 1)