Re: mini-golf: first differing position

<[email protected]>
Newsgroups gmane.comp.lang.perl.fun
Message-ID <[email protected]>

   X-Original-To: [email protected]
   Mailing-List: contact [email protected]; run by ezmlm
   X-Spam-Status: No, hits=0.3 required=7.0
	   tests=NO_REAL_NAME
   X-Spam-Check-By: la.mx.develooper.com
   Date: Tue, 20 Apr 2004 19:57:27 -0400 (EDT)
   From: <[email protected]>




   We want to find out the first position $n at which strings $x and $y
   differ.  If $x eq $y, then $n is undef.  If $x ne $y but $x is a
   prefix (aka initial segment) of $y, then $n should be equal to length
   $x.  The operation must preserve both $x and $y (i.e. destructive
   operations are disallowed).

   By way of baseline, here's an utterly uninspired solution:

   $n=0;while(($c=substr($x,$n,1)||undef $n) && $c eq substr($y,$n++,1)){;}

It's worse than uninspired, actually.  It's wrong.

kj
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.