Re: Finding extra digit

*To*: mathgroup at smc.vnet.net*Subject*: [mg53986] Re: Finding extra digit*From*: "Steve Luttrell" <steve_usenet at _removemefirst_luttrell.org.uk>*Date*: Sun, 6 Feb 2005 00:44:55 -0500 (EST)*References*: <cu208g$m0j$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

This example does the sort of thing you want: Define a couple if integers differing by one digit. In[1]:= {n1,n2}={1234567,1234568}; Split the integers into their component digits. In[2]:= {d1,d2}=Map[IntegerDigits,{n1,n2}] Out[2]= {{1,2,3,4,5,6,7},{1,2,3,4,5,6,8}} Find the digits the integers have in common In[3]:= i=Intersection[d1,d2] Out[3]= {1,2,3,4,5,6} Find which digits of n2 do NOT lie in the above common set. In[4]:= Complement[d2,i] Out[4]= {8} This also produces useful results when the integers differ by more than one digit, or when the integers have an unequal number of digits. Steve Luttrell "Zak Seidov" <seidovzf at yahoo.com> wrote in message news:cu208g$m0j$1 at smc.vnet.net... > Dear Math gurus, > please help! > What is an easy way to find extra digit in the integer n2, > which differs from integer n1 > EXACTLY by ONE digit. > I use a very dirt program, > but guess that you can suggest smth (much) better. > Thanks a lot, > and please mail me your help > seidovzf at yahoo.com >