Submission #2232577

---

Source Code Expand

#!/usr/bin/env perl

use strict;
use warnings;

my $input = <STDIN>;
chomp $input;
my ($n, $yoko_lines, $joint) = split(/\s/, $input);

$input = <STDIN>;
chomp $input;
my @branches = split(/\s/, $input);
my %results;

for my $initial_line_no (1..$n){
    my $now_line_no = $initial_line_no;
    for (1..$joint){
        if (exists($results{$now_line_no})){
            $now_line_no = $results{$now_line_no};
        }
        else{
            my $kari_line_no = $now_line_no;
            for my $branch (@branches){
                if ($now_line_no == $branch){
                    $now_line_no += 1;
                }elsif ($now_line_no == $branch + 1){
                    $now_line_no -= 1;
                }
            }
            $results{$kari_line_no} = $now_line_no;
        }
    }
    print "$now_line_no\n";
}

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result