Re: (golf) Interlaced Strings

[Masem]

For the main part: 75 char in the sub: (4 less if you don't mind uninit'd values)

#!/usr/bin/perl -w

use strict;

my $a = "Ti sats.";
my $b = "hsi  et";

my $c = j( $a, $b );
print $c."\n";

sub j {
my@a=split//,shift;my@b=split//,shift;return join'',map{$_,shift@b||''
+}@a;
}

---

Dr. Michael K. Neylon - [e-mail] || "You've left the lens cap of your mind on again, Pinky" - The Brain