Merge pull request #13166 from mattmartini/branch-for-challenge-349

Solutions for challenge 349

Author: manwar

challenge-349/matt-martini/README

@@ -0,0 +1 @@
+Solution by Matt Martini

challenge-349/matt-martini/perl/ch-2.pl

@@ -0,0 +1,38 @@
+#!/usr/bin/env perl
+
+use 5.018;
+use strict;
+use warnings;
+use Test2::V0;
+
+plan tests => 5;
+
+sub meeting_point {
+    my $path       = shift;
+    my %path_count = ( U => 0, D => 0, L => 0, R => 0 );
+
+    print "$path\n";
+
+    my $result = 'false';
+    STEP:
+    while ( $path =~ m|(.)|g ) {
+        my $step = $1;
+        $path_count{ $step }++;
+
+        if (     ( $path_count{ U } == $path_count{ D } )
+              && ( $path_count{ L } == $path_count{ R } ) )
+        {
+            $result = 'true';
+            last STEP;
+        }
+    }
+    say $result;
+
+    return $result;
+}
+
+is( meeting_point('ULD'),          'false', 'example 1' );
+is( meeting_point('ULDR'),         'true',  'example 2' );
+is( meeting_point('UUURRRDDD'),    'false', 'example 3' );
+is( meeting_point('UURRRDDLLL'),   'true',  'example 4' );
+is( meeting_point('RRUULLDDRRUU'), 'true',  'example 5' );