Task — Same string

You are given two arrays of strings, @arr1 and @arr2. Write a script to find out if the word created by concatenating the array elements is the same.

Examples

Example 1
Input: @arr1 = ("ab", "c")
       @arr2 = ("a", "bc")
Output: true

Using @arr1, word1 => "ab" . "c" => "abc"
Using @arr2, word2 => "a" . "bc" => "abc"

Example 2
Input: @arr1 = ("ab", "c")
       @arr2 = ("ac", "b")
Output: false

Using @arr1, word1 => "ab" . "c" => "abc"
Using @arr2, word2 => "ac" . "b" => "acb"

Example 3
Input: @arr1 = ("ab", "cd", "e")
       @arr2 = ("abcde")
Output: true

Using @arr1, word1 => "ab" . "cd" . "e" => "abcde"
Using @arr2, word2 => "abcde"

Analysis

The handling of strings is one of Perl's strengths and allows this task to be solved in essentially no lines of code at all. I just used the say statetment that outputs the answer to join() each of the arrays, compare the results, and output true or false depending on whether they match.

Try it 

Script

#!/usr/bin/perl

use v5.16;    # The Weekly Challenge - 2023-10-16
use utf8;     # Week 239 task 1 - Same string
use strict;   # Peter Campbell Smith
use warnings; # Blog: http://ccgi.campbellsmiths.force9.co.uk/challenge

same_string(['ab', 'c'], ['a', 'bc']);
same_string(['ac', 'b'], ['a', 'bc']);
same_string(['the', 'cat', 'sat', 'on', 'the', 'mat'], ['thec', 'atsa', 'tont', 'hema', 't']);
same_string(['the', 'cat', 'sat', 'on', 'the', 'mat'], ['the', 'dog', 'sat', 'on', 'the', 'rug']);

sub same_string {
    
    # show input
    say qq[\nInput:  \@arr1 = ('] . join(q[', '], @{$_[0]}) . q[')];
    say qq[        \@arr2 = ('] . join(q[', '], @{$_[1]}) . q[')];
    
    # show output by comparing the joins of the 2 arrays
    say qq[Output: ] . (join('', @{$_[0]}) eq join('', @{$_[1]}) ? 'true' : 'false');
}
    

Output

Input:  @arr1 = ('ab', 'c')
        @arr2 = ('a', 'bc')
Output: true

Input:  @arr1 = ('ac', 'b')
        @arr2 = ('a', 'bc')
Output: false

Input:  @arr1 = ('the', 'cat', 'sat', 'on', 'the', 'mat')
        @arr2 = ('thec', 'atsa', 'tont', 'hema', 't')
Output: true

Input:  @arr1 = ('the', 'cat', 'sat', 'on', 'the', 'mat')
        @arr2 = ('the', 'dog', 'sat', 'on', 'the', 'rug')
Output: false