Submission #2240446

---

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;
}
my @change_table = @numbers;
my @new_numbers;
for (1..($joint - 1)){
    for my $n (0..(@numbers - 1)){
        $new_numbers[$n] = $change_table[$numbers[$n] - 1];
    }
    @numbers = @new_numbers;
}

for my $i (0..($n - 1)){
    print "$numbers[$i]\n";
}

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result