- プログラミングのお題スレ Part17
58 ：デフォルトの名無しさん[sage]：2020/03/28(土) 11:14:59.26 ID:VFdWLa/U - >>52 Perl5
$"=',';
for $a (<DATA>) {
$a =~ s/-/.../;
@s = eval $a;
print "[@s]\n";
}
__DATA__
1
1-3
1,3
1,3-5
実行結果
~ $ perl 17_53_ancres.pl
[1]
[1,2,3]
[1,3]
[1,3,4,5]
| - プログラミングのお題スレ Part17
59 ：デフォルトの名無しさん[sage]：2020/03/28(土) 11:21:13.18 ID:VFdWLa/U - >>58 Perl5 ちょっと修正
$"=',';
for $a (<DATA>) {
$a =~ s/-/.../g;
@s = sort{$a<=>$b} eval $a;
print "[@s]\n";
}
__DATA__
1
1-3
1,3
1,8-10,3-5
実行
~ $ perl 17_53_ancres.pl
[1]
[1,2,3]
[1,3]
[1,3,4,5,8,9,10]
|
|