Submission #7506554

---

Source Code Expand

use v5.18;
use warnings;
sub read_line { chomp(my $s = <>); $s }

my $s = [ split //, read_line ];
my $t = [ split //, read_line ];
say solve($s, $t)
  ? 'You can win'
  : 'You will lose';

sub solve {
  my ($s1, $s2)  = @_;
  for my $i (0 .. $#$s1) {
    if ($s1->[$i] ne $s2->[$i]) {
      if ($s1->[$i] eq '@') {
        return !!0 if $s2->[$i] !~ /a|t|c|o|d|e|r/;
      }
      elsif ($s2->[$i] eq '@') {
        return !!0 if $s1->[$i] !~ /a|t|c|o|d|e|r/;
      }
      else {
        return 0;
      }
    }
  }
  !!1;
}

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result