1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!/usr/bin/perl
use strict;
use warnings;
=head1 TREE
5
/ \
4 8
/ / \
11 13 9
/ \ \
7 2 1
=cut
my $SUM = 22;
my $TREE = {
5 => { 4 => { 11 => [7, 2] },
8 => { 13 => [],
9 => [1],
},
},
};
print join("\n", @{find_matched_paths($TREE, $SUM)}), "\n";
sub find_matched_paths {
my ($TREE, $SUM) = @_;
my $paths = [];
foreach my $k (keys %$TREE) {
my $path = [ $k+0 ];
foreach my $i (keys %{$TREE->{$k}}) {
my $_path = [ $k, $i+0 ];
foreach my $j (keys %{$TREE->{$k}->{$i}}) {
push @$_path, $j+0;
if (scalar(@{$TREE->{$k}->{$i}->{$j}})) {
foreach (@{$TREE->{$k}->{$i}->{$j}}) {
push @$paths, [ @$_path, $_+0 ];
}
}
else {
push @$paths, [ @$_path ];
}
}
}
}
my $matched_paths = [];
foreach my $path (@$paths) {
my $total = 0;
$total += $_ foreach @$path;
push @$matched_paths, join(" -> ", @$path) if ($total == $SUM);
}
return $matched_paths;
}
|
