プログラミングのお題スレ Part17

プログラミングのお題 ..

61:デフォルトの名無しさん
20/03/28 11:21:13.18 VFdWLa/U.net
>>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]

次ページ

続きを表示

1を表示