Mega Code Archive

 

Categories / Perl / Array

 

Push array and join

#!/usr/bin/perl use warnings; use strict; my $max = 6; my @array = (1..$max); while (my $element = shift @array) {     push (@array,$max - $element);     print $element, " : ", join(",", @array), "\n"; }