Re: (golf) Interlaced Strings

[premchai21]

#!/usr/bin/perl
use strict;
sub interlace {
### ENGAGE GOLF MODE    ###
    my@a=@_;my$z='';($z=chop($a[0]).chop($a[1]).$z)while($a[0]||$a[1])
+;$z
### DISENGAGE GOLF MODE ###
}
print interlace 'Ti sats.', 'hsi  et ';

69 chars with strict on, according to Emacs.

Update: D'oh! Changed something and forgot to change the other part to match. Now is six characters longer.

[Masem]

Do you even need to define @a? I think you can drop this by 7 characters more...

---

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

[premchai21]

Eight, you mean. But I do need to define it; since I'm passing in constants, @_ is considered read-only.

[koolade]

Am I missing something? This doesn't work for me. $x and $y are never defined. Do you mean:

my@a=@_;my$z='';($z=chop($a[0]).chop($a[1]).$z)while($a[0]||$a[1]);$z