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

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

137:デフォルトの名無しさん
20/04/14 15:14:57 U0kTSrBw.net
>>131 Perl5

sub f {
　my @s;
　while (defined (my $e = shift)) { push @s, $e }
　@_ ? (@s ? (\@s, f(@_)) : f(@_)) : \@s;
}
sub g { map{"[$$_[0],$$_[-1]]"} @_ }
for ([[1, 5], [2, 6], [-1, 10]],
　　　[[2, 3], [3, 4], [7, 10]]) {
　%h = map{$_ => $_} map{$$_[0]..$$_[1]} @$_;
　@k = sort{$a <=> $b} keys %h;
　@l = f map{$h{$_}} $k[0]..$k[-1];
　$"=',';
　@j = g @$_;
　@k = g @l;
　print "@j ==> @k\n";
}

実行結果
~ $ perl 17_131_intrange.pl
[1,5],[2,6],[-1,10] ==> [-1,10]
[2,3],[3,4],[7,10] ==> [2,4],[7,10]

次ページ

続きを表示

1を表示