Return to Answer

deleted 360 characters in body

Source Link

edited Mar 22, 2018 at 16:02

Perl 5, 2424 22 bytes

Includes +1+2 for -ala

perl -aE '/$/;map$_<$`||//+say,@F' <<< "-1 2 5 4 3 7 7"

Under codegolf style 2018 scoring this would be 22:

#!/usr/bin/perl -ala
//;map$_<$'||//+say,@F$_<"$o $_"||say$o=$_

Includes +1 for -a

perl -aE '/$/;map$_<$`||//+say,@F' <<< "-1 2 5 4 3 7 7"

Under codegolf style 2018 scoring this would be 22:

#!/usr/bin/perl -a
//;map$_<$'||//+say,@F

Includes +2 for -la

#!/usr/bin/perl -la
$_<"$o $_"||say$o=$_

Source Link

created Mar 22, 2018 at 15:52

Includes +1 for -a

perl -aE '/$/;map$_<$`||//+say,@F' <<< "-1 2 5 4 3 7 7"

Under codegolf style 2018 scoring this would be 22:

#!/usr/bin/perl -a
//;map$_<$'||//+say,@F