RosettaCodeData/Task/Sort-numbers-lexicographically/Perl/sort-numbers-lexicographically.pl
2023-07-01 13:44:08 -04:00

1 line
81 B
Raku

printf("%4d: [%s]\n", $_, join ',', sort $_ > 0 ? 1..$_ : $_..1) for 13, 21, -22