2007-07-22から1日間の記事一覧
二つの有限リンクトリストを連結してみます.つまり, $list1= [ 1, [ 2, [ 3, undef] ] ]; $list2= [ 10, [20, [30, undef] ] ]; から $list = [ 1, [ 2, [ 3, [ 10, [20, [30, undef] ] ] ] ] ]; を作る操作です. sub concat{ my ($a,$b)=@_; my $c = $a;…
二つの有限リンクトリストを連結してみます.つまり, $list1= [ 1, [ 2, [ 3, undef] ] ]; $list2= [ 10, [20, [30, undef] ] ]; から $list = [ 1, [ 2, [ 3, [ 10, [20, [30, undef] ] ] ] ] ]; を作る操作です. sub concat{ my ($a,$b)=@_; my $c = $a;…