in reply to (golf) Interlaced Strings
I apparently just beat out premchai21, the current leader, by one character:
#!/usr/bin/perl -w use strict; print j('Ti sats','hri et'),"\n"; sub j { my($a,$b)=@_;$a=~s/(.)/$1.substr($b,length($`),1)/ge;return$a; }
62 characters.
Update: Same basic idea as japhy had, but worse execution. Ahh, well.
Update 2: After seeing japhy's code, I can whittle it down to 40 chars. All credit for the idea goes to japhy, though:
sub j { $_=pop;@_=split//,pop;s/./shift.$&/eg;$_ }
perl -e 'print "I love $^X$\"$]!$/"#$&V"+@( NO CARRIER'
|
---|
In Section
Meditations