RosettaCodeData/Task/Range-expansion/Perl/range-expansion-2.pl
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

4 lines
76 B
Raku

sub rangex {
(my $range = shift) =~ s/(?<=\d)-/../g;
eval $range;
}