MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Finding extra digit

  • To: mathgroup at smc.vnet.net
  • Subject: [mg53992] Re: Finding extra digit
  • From: Bill Rowe <readnewsciv at earthlink.net>
  • Date: Sun, 6 Feb 2005 00:45:04 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

On 2/5/05 at 3:15 AM, seidovzf at yahoo.com (Zak Seidov) wrote:

>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. 

n = 125623; 
m = 124623; 

Select[MapIndexed[{#2, #1}& , 
   Transpose@{IntegerDigits@m, IntegerDigits@n}], 
  UnsameQ@@Last@#1&]

{{{3}, {4, 5}}}

Would be one way to accomplish this
--
To reply via email subtract one hundred and four


  • Prev by Date: Re: Mathematica
  • Next by Date: Re: Vertex labeling
  • Previous by thread: Re: Finding extra digit
  • Next by thread: Re: Finding extra digit