use Perl

• chop chop (Score:2)

  by jmm (276)

  sub zip {
      my( $a, $b ) = @_;
      my $res;
      $res .= chop($b).chop($a) for 1..length($a);
      scalar(reverse $res);
  }
  • Re:chop chop (Score:1)

    by ambs (3914)

    Nice. We all forget chop :-)
    • Re:chop chop (Score:2)

      by jmm (276)

      I long ago proposed, on perl5-porters, an operator "chip" that would take one char from the front of a string, the way chop takes a character from the end. That would get around the need to reverse the chopped together $res.
      • Re:chop chop (Score:1)

        by ambs (3914) <reversethis-{tp. ... la} {ta} {eibla}> on 2004.07.08 14:25 (#32274) Homepage Journal

        Chip sounds cool... can remember computer chips but also food O:-)

        During our discussion about an "interesting" solution, we could take advantage of chip. We thought of unshift, but that doesn't work for arrays.

        Reply to This

        Parent

        • Re:chop chop (Score:2)

          by jmm (276)

          The computer chip I referred to in the original proposal was Chip Salzenburg, who was working on Topaz (the original potential perl6) at the time, had established The Perl Foundation, and was the original pumpking (after Larry), so sneaking an honorarium mention of him into the language seemed reasonable.
        • Re:chop chop (Score:2)

          by jmm (276)

          We thought of unshift, but that doesn't work for arrays. s/arrays/strings/;

          Much like your original proposal, you can use:

          @a = split //, $a;
          @b = split //, $b;
          my $res .= (shift @a) . (shift @b) while @a;
          • Re:chop chop (Score:1)

            by ambs (3914)

            That was almost my first solution:

            @a = split //, $a;
            @b = split //, $b;
            while (@a) {
              push @c, shift(@a), shift(@b)
            }
            $c = join "",@c;