Re: mini-golf: first differing position
Xavier Noria <[email protected]>
| Newsgroups | gmane.comp.lang.perl.fun |
|---|---|
| Message-ID | <[email protected]> |
On Apr 21, 2004, at 5:52, Xavier Noria wrote:
> $n=$x eq$y?$z:do{1while$x=~/./sg&$y=~/\G$&/g;$-[0]}
A little bit shorter (47):
{$x ne$y&&$x=~/./sg&$y=~/\G$&/g&&redo;$n=$-[0]}
-- fxn