Re: Golf: Embedded In Order

[boo_radley]

in reply to Golf: Embedded In Order

42 chars in the sub.

use strict;
my $s = "abcdefghijklmnopqrstuvwxyz";
my $t = "for";
print x($s,$t),"\n";
$t="perl";
print x($s,$t),"\n";

sub x{
my($s,$t)=@_;
eval"\$s=~tr/$t//cd";
$s eq$t;
}

update
one less:

sub x{
eval"\$_[0]=~tr/$_[1]//cd";$_[0]eq$_[1];
}

[MeowChow]

Interesting method, but it doesn't properly handle:

my $s = "abcfoforrxyz";
my $t = "for";

There are also serious escaping issues with the interpolated code inside the eval :)

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print