Submission #2234593

---

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 @numbers = (1..$n);
for my $branch (reverse(@branches)){
    my $tmp = $numbers[$branch - 1];
    $numbers[$branch - 1] = $numbers[$branch];
    $numbers[$branch] = $tmp;
}
for my $initial_line_no (1..$n){
    my $now_line_no = $initial_line_no;
    for (1..$joint){
        $now_line_no = $numbers[$now_line_no - 1];
    }
    print "$now_line_no\n";
}

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result