Generate a list with any number

Questions
, ,
1

Can anyone explain how generate the next list with any number…

n=any number that I introduce, follow the same serie

{{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}, {3, 1}, {7, 1}, {2, 3}, {3, 2}, {2, 1}, {5, 1}…}

Thank’s a lot

2

Hi Camilo,

I do not understand the question. What do you mean with next list with any number? Do you mean that you want to add another list of to numbers to that list. Something like:

list = {{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}, {3, 1}, {7, 1}, {2, 3}, {3, 2}, {2, 1}, {5, 1}}

AppendTo[list, {RandomInteger[7], RandomInteger[7]}]

That would add one entry, i.e. a list of two numbers, to the outer list. Or do you want to add another list to that list like so:

Nest[Append[#, RandomInteger[7, Last[Dimensions /@ {list}]]] &, {list}, 3]

which would do the procedure 3 times and add an additional list of the same shape as the first one?

Cheers,

Marco

3

data = {{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}, {3, 1}, {7, 1}, {2, 3}, {3,
2}, {2, 1}, {5, 1}};

If you just want to append a pair then use Append or ApendTo

data = Append[data, {8, 4}]

{{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}, {3, 1}, {7, 1}, {2, 3}, {3,
2}, {2, 1}, {5, 1}, {8, 4}}

data = {{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}, {3, 1}, {7, 1}, {2, 3}, {3, 
    2}, {2, 1}, {5, 1}};

AppendTo[data, {8, 4}]

{{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}, {3, 1}, {7, 1}, {2, 3}, {3,
2}, {2, 1}, {5, 1}, {8, 4}}

% == %%%

True

To select (Take) the first n elements of the data use Take[data, n] where n<= Length[data]

data = {{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}, {3, 1}, {7, 1}, {2, 3}, {3, 
    2}, {2, 1}, {5, 1}};

n = 5; Take[data, n]

{{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}}

If you want to generate a random list of of n pairs

n = 5; RandomInteger[{1, 9}, {n, 2}]

{{9, 4}, {6, 4}, {1, 8}, {6, 3}, {1, 4}}

4

For example I introduce number 5 in n and the number give a range of the list

n=5;

{{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}}

5

Taken literally it is

In[2]:= pachecoL[n_Integer?Positive] := 
 Block[{x = {{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}, {3, 1}, {7, 1}, {2, 3}, {3, 2}, {2, 1}, {5, 1}, Missing[]}},
  If[n >= Length[x], x[[-1]], Take[x, n]]
]

In[3]:= pachecoL[5]
Out[3]= {{2, 1}, {3, 1}, {2, 2}, {5, 1}, {2, 1}}