MathGroup Archive 2014

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

Search the Archive

Re: For 2014?


Ulrich Arndt wrote:
>
> l=Range[9];r=StringJoin[Riffle[ToString/@l,#]]&/@Tuples[{"+","-","*","/",""},8];Grid[{#,Extract[r,Position[ToExpression/@r,#]]}&/@(l+2010)]
>
  faster

l=Range[9];re=ToExpression[r=StringJoin[Riffle[ToString/@l,#]]&/@Tuples[{"+","-","*","/",""},8]];Grid[{#,Extract[r,Position[re,#]]}&/@(l+2010)]

-- 
  Costa



  • Prev by Date: Re: Running problem in DSolve
  • Next by Date: Benchmarking Mathematica on the Raspberry Pi
  • Previous by thread: Re: For 2014?
  • Next by thread: Re: For 2014?