Select Code to Download

sub p {
my($a,$z,@x)=@_;
my @n=($z)x(abs @x-abs $a);
@n=abs $a>@x?$a<0?(@n,@x):(@x,@n):@x;
}

sub p {($a,$b,@x)=@_;@_=($b)x(abs@x-abs$a);@_=abs$a>@x?$a<0?(@_,@x):(@
+x,@_):@x}