updateuse 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; }
sub x{ eval"\$_[0]=~tr/$_[1]//cd";$_[0]eq$_[1]; }
In reply to Re: Golf: Embedded In Order
by boo_radley
in thread Golf: Embedded In Order
by Masem
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |