salva/bad_elves.pl

## bad_elves.pl
#!/usr/bin/perl

use strict;
use warnings;

my $n = shift;
my $start = int($n / 2 + 1);
my @play = (($start..$n), (1..($start - 1)));

while ($n > 1) {
    shift @play;
    push @play, shift @play if $n-- & 1;
}
print "@play\n";
	#!/usr/bin/perl

	use strict;
	use warnings;

	my $n = shift;
	my $start = int($n / 2 + 1);
	my @play = (($start..$n), (1..($start - 1)));

	while ($n > 1) {
	shift @play;
	push @play, shift @play if $n-- & 1;
	}
	print "@play\n";