MathGroup Archive 2011

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

Search the Archive

Re: count zeros in a number


Am 02.10.2011 08:40, schrieb dimitris:
> Hello.
>
> Consider e.g. the number 24^24*55^55.
> This number ends with exactly 55 zeros as the following demonstrate
>
> In[201]:= Mod[24^24*55^55, 10^55]
> Mod[24^24*55^55, 10^56]
>
> Out[201]= 0
> Out[202]= 20000000000000000000000000000000000000000000000000000000
>
>
> What I want now is a way to count the zeros that a number ends without
> knowing in advance this number of zeros like in the above example.
>
> Thanks in advance.
> Dimitris
>

Using pattern matching makes this an easy one :-)

In[1]:= TrailingZeros[n_Integer] :=
   IntegerDigits[n] /. {___, Except[0], z: ((0) ...)} :> Length[{z}]

TrailingZeros[24^24 55^55]
Out[2]= 55




  • Prev by Date: Re: count zeros in a number
  • Next by Date: Re: count zeros in a number
  • Previous by thread: Re: count zeros in a number
  • Next by thread: Re: count zeros in a number