Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

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

Search the Archive

Re: Converting table to a number?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg2113] Re: Converting table to a number?
  • From: Jorma Virtamo <jorma.virtamo at vtt.fi>
  • Date: Wed, 4 Oct 1995 01:52:57 -0400

olee at ripco.com (O. Lee) wrote:
>
> 
> Can anyone help me solve this problem?
> I have a list of numbers, such as this:
> 
>         { 1, 0, 1, 1, 0, 1, 0, 0 }
> 
> and I want to convert it into this:
> 
>         10110100 (binary)
> 
> Is there a command in Mathematica that would do this?
> 
> 

To my knowledge there is no single command to do that, but
of course it's easy to construct one's own function

In[1]:= tobin[lst_] := Module[{e=1,s=0},
                              (s+=#e;e*=2)& /@ Reverse[lst];
                              Return[s]]
Let's test it

In[2]:= lst = { 1, 0, 1, 1, 0, 1, 0, 0 };

In[3]:= tobin[lst]
Out[3]= 180

In[4]:= IntegerDigits[%,2]
Out[4]= {1, 0, 1, 1, 0, 1, 0, 0}

Another possibility is to play with the strings:

In[5]:= ToExpression["2^^"~StringJoin~FromCharacterCode[lst+48]]
Out[5]= 180


-- Jorma Virtamo


============================================================     
Jorma Virtamo
VTT Information Technology / Telecommunications
P.O. Box 1202,  FIN-02044 VTT,  Finland
phone: +358 0 456 5612          fax: +358 0 455 0115
email: jorma.virtamo at vtt.fi     web: http://www.vtt.fi/tte/
============================================================



  • Prev by Date: RE: Re: MMA for finance/econometrics
  • Next by Date: Simplifying vector expressions
  • Previous by thread: RE: Re: MMA for finance/econometrics
  • Next by thread: Re: Converting table to a number?