Message Boards

WOLFRAM COMMUNITY

663 Views

2 Replies

2 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematics Wolfram Language

Writing a list in format {m[1],0,a1},...{m[k],1,ak}

Enrique Antoniano

Enrique Antoniano, Anahuac University

Posted 5 months ago

I need to write something as {m[1],0,a1},...{m[k],1,ak}

POSTED BY: Enrique Antoniano

2 Replies

Sort By:

Enrique Antoniano

Enrique Antoniano, Anahuac University

Posted 5 months ago

Thank you very much. You introduce me at another level of programation. Happiness

POSTED BY: Enrique Antoniano

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 5 months ago

You have to play with the order of evaluation. Here is a way: Clear[p]; p[n_, k_] := Apply[Sum, {IntegerPart[(2 + n - Sum[i m[i], {i, 3, k}])/2], Sequence @@ Table[ {m[k - l], IntegerPart[(k - l)/k], (n - Sum[(s) m[s], {s, k - l + 1, k}])/(k - l)}, {l, 0, k - 3}]}]

You have to play with the order of evaluation. Here is a way:

Clear[p];
p[n_, k_] := Apply[Sum,
  {IntegerPart[(2 + n -
       Sum[i  m[i], {i, 3, k}])/2],
   Sequence @@ Table[
     {m[k - l],
      IntegerPart[(k - l)/k],
      (n - Sum[(s)  m[s],
          {s, k - l + 1, k}])/(k - l)},
     {l, 0, k - 3}]}]

POSTED BY: Gianluca Gorni

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback