diff options
| -rw-r--r-- | challenge-151/lubos-kolouch/perl/ch-1.pl | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/challenge-151/lubos-kolouch/perl/ch-1.pl b/challenge-151/lubos-kolouch/perl/ch-1.pl new file mode 100644 index 0000000000..ba464fb82d --- /dev/null +++ b/challenge-151/lubos-kolouch/perl/ch-1.pl @@ -0,0 +1,32 @@ +use strict; +use warnings; +use Data::Dumper; + +sub get_min_depth { + my $input = shift; + + #Input: '1 | 2 3 | 4 5' + + # iterate through the layers. If the next layer does not have 2^n items, + # there must be a leaf node + + $input =~ s/\s//g; + my @layers = split /\|/, $input; + + my $layer_count = 1; + for my $layer (@layers) { + # if not defined means we are at the last layer + return $layer_count unless defined $layers[$layer_count]; + + my $items_count = length($layers[$layer_count]); + return $layer_count unless $items_count == 2**$layer_count; + + $layer_count++; + } +} + +use Test::More; +is(get_min_depth('1 | 2 3 | 4 5'), 2); +is(get_min_depth('1 | 2 3 | 4 * * 5 | * 6'), 3); +done_testing; + |