Perl 5に2つのリストをインターリーブするエレガントなジップがありますか？

Question

私は最近、Perl 5（私は約How do I calculate relative time?を考えていました）のzip関数を "必要"にしました。つまり、2つのリストを1つのリストにまとめて要素をインターリーブする関数です。

（擬似）例：

@a=(1, 2, 3); 
@b=('apple', 'orange', 'grape'); 
zip @a, @b; # (1, 'apple', 2, 'orange', 3, 'grape'); 

Haskell has zip in the Preludeとに建てPerl 6 has a zip operator、しかし、あなたは、Perl 5のエレガントな方法でそれをどのように行うのですか？

Answer 1

あなたは正確に二つのリストを持っており、彼らは正確に同じ長さであると仮定すると、ここで強情Perl的に呼ばれるメルリンことで、もともと溶液（ランダルシュワルツ）は、あります10要素リストでは、まずピボット点が中央にあります。この場合は5で、$pに保存します。その場合は、その時点までインデックスのリストを作成します。この場合、0 1 2 3 4.次に、mapを使用して、最初のインデックスが開始点からのピボットポイントから同じ距離にある別のインデックスと、 0 5 1 6 2 7 3 8 4 9.その後、インデックスのリストとしてそれを使用して、@_からスライスを取ります。つまり、zip2に'a', 'b', 'c', 1, 2, 3が渡された場合、そのリストは'a', 1, 'b', 2, 'c', 3に再配置されます。

これはそうのようなysthのラインに沿って単一の式で書くことができます。

sub zip2 { @_[map { $_, $_ + @_/2 } 0..(@_/2 - 1)] } 

あなたは変化のいずれかを使用したいと思いますかどうかは、彼らがどのように機能するかを思い出し、自分自身を見ることができるかどうかに依存しますが、私にとっては、それは心の拡大でした。

Answer 2

List::MoreUtilsモジュールは、トリックを行う必要がありジップ/メッシュ機能を持っています。ここ

use List::MoreUtils qw(zip); 

my @numbers = (1, 2, 3); 
my @fruit = ('apple', 'orange', 'grape'); 

my @zipped = zip @numbers, @fruit; 

はメッシュ機能の源である：

sub mesh (\@\@;\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@) { 
    my $max = -1; 
    $max < $#$_ && ($max = $#$_) for @_; 

    map { my $ix = $_; map $_->[$ix], @_; } 0..$max; 
} 

Answer 3

 
my @l1 = qw/1 2 3/; 
my @l2 = qw/7 8 9/; 
my @out; 
push @out, shift @l1, shift @l2 while (@l1 || @l2); 

リストがある場合異なる長さの場合、これは余分なスロットに 'undef'を入れますが、これをしたくない場合は簡単にこれを修正することができます。何か（@ l1 [0] & &シフト@ l1）となります。

希望すると便利です。ここでは何が起こる

sub zip2 { 
    my $p = @_/2; 
    return @_[ map { $_, $_ + $p } 0 .. $p - 1 ]; 
} 

がためということです。

Answer 4

Algorithm::Loopsは、この種のことを大事にすると本当にいいです。

私自身のコード：

sub zip { @_[map $_&1 ? $_>>1 : ($_>>1)+($#_>>1), 1..@_] } 

Answer 5

これは完全にエレガントな解決策ではない、またそれは、想像力の任意のストレッチで最高のソリューションです。しかし、それは楽しいです！ STORESIZE/PUSH/POP/SHIFT/UNSHIFT/SPLICEを処理する方法

package zip; 

sub TIEARRAY { 
    my ($class, @self) = @_; 
    bless \@self, $class; 
} 

sub FETCH { 
    my ($self, $index) = @_; 
    $self->[$index % @$self][$index/@$self]; 
} 

sub STORE { 
    my ($self, $index, $value) = @_; 
    $self->[$index % @$self][$index/@$self] = $value; 
} 

sub FETCHSIZE { 
    my ($self) = @_; 
    my $size = 0; 
    @$_ > $size and $size = @$_ for @$self; 
    $size * @$self; 
} 

sub CLEAR { 
    my ($self) = @_; 
    @$_ =() for @$self; 
} 

package main; 

my @a = qw(a b c d e f g); 
my @b = 1 .. 7; 

tie my @c, zip => \@a, \@b; 

print "@c\n"; # ==> a 1 b 2 c 3 d 4 e 5 f 6 g 7 

読者に左運動です。同じ長さの配列のために

Answer 6

：私は以下のソリューションは単純明快で読みやすい見つける

my @zipped = (@a, @b)[ map { $_, $_ + @a } (0 .. $#a) ]; 

Answer 7

：

@a = (1, 2, 3); 
@b = ('apple', 'orange', 'grape'); 
@zipped = map {($a[$_], $b[$_])} (0 .. $#a); 

私はそれがより速く間違って配列を作成するソリューションよりもだと信じて順序を変更してから、@aと@bを変更するソリューションを使用してください。