Select Code to Download

#!/usr/bin/perl
use warnings;
...
is triangle_sum([[2], [1, 5], [9, 10, 1]]), 8, 'Tricky';

done_testing();

sub triangle_sum_show {
    my ($triangle) = @_;
    my @sums = @{ $triangle->[-1] };
...
}
my $triangle = [ map [map int rand 10, 1 .. $_], 1 .. 20 ];
triangle_sum_show($triangle);

                    [9]
                   [1] 4
...
   3 4 8 8 9 [3] 4 0 5 7 6 8 2 8 4 1 1 2
  4 9 0 8 6 [0] 2 8 2 7 0 1 3 2 5 8 0 7 7
 3 3 2 0 5 9 [1] 3 5 2 5 9 3 0 4 6 3 6 4 3