6 lines
153 B
Perl
6 lines
153 B
Perl
sub flatten {
|
|
map { ref eq 'ARRAY' ? flatten(@$_) : $_ } @_
|
|
}
|
|
|
|
my @lst = ([1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8, []);
|
|
print flatten(@lst), "\n";
|