challenge-082/dave-cross/perl/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

die "Give me three strings\n" unless @ARGV == 3;

my ($bit1, $bit2, $result) = @ARGV;

my $done;

for (0 .. length $bit1) {
  my $foo = $bit1;
  substr($foo, $_, 0, $bit2);
  if ($foo eq $result) {
    $done = 1;
    last;
  }
}

say $done ? 1 : 0;