MathGroup Archive 2005

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

Search the Archive

Re: Finding extra digit


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