Making tuples with values produced by `Range[n]` and a constant $m$

Question

I'd like to produce a list of $n-$tuples made from the elements of Range[n] coupled with a constant value $m$.

Here's an example, given $n=3$:

Range[3] = {1,2,3}

What I want to obtain is:

{{1,m},{2,m},{3,m}}

I've tried using Tuple, but I couldn't get it to make what I want.

score 3 · Accepted Answer · answered Nov 15 '19 at 06:58

3

You can in fact use Tuples[]:

Tuples[{{1, 2, 3}, {"m"}}]
   {{1, "m"}, {2, "m"}, {3, "m"}}

answered Nov 15 '19 at 06:58

J. M.'s missing motivation

124,525
11
401
574

Is the "m" the same as m? – Rodrigo Nov 15 '19 at 06:59
You can replace "m" with anything else; try it out yourself. – J. M.'s missing motivation Nov 15 '19 at 07:00
I've tried. Thanks a lot! (Sorry if the question was a bit basic.) – Rodrigo Nov 15 '19 at 07:02
1

@Rodrigo You can make explicit use of Symbol which I sometimes like to make the character of m more explicit, e.g. Symbol["m"]. – gwr Nov 15 '19 at 09:27

score 3 · Answer 2 · answered Nov 15 '19 at 09:10

Benchmark in Mathematica 10.1 of the posted methods, plus one using ArrayFlatten:

tuples[n_] := Tuples[{Range@n, {m}}];
thread[n_] := Thread[{Range@n, m}];
array[n_] := Array[{#, m} &, n];
transpose[n_] := Transpose@{Range@n, ConstantArray[m, n]};
arrayflatten[n_] := ArrayFlatten[{{Range@n ~Partition~ 1, m}}];

m = 17;

Needs["GeneralUtilities`"]
BenchmarkPlot[{tuples, thread, array, transpose, arrayflatten}, Identity]

score 1 · Answer 3 · answered Nov 15 '19 at 06:55

1

Something like this?

Block[{n = 3}, Array[{#, m} &, n]]
Transpose@{Range[3], ConstantArray[m, 3]} == %
Thread@{Range[3], m} == %%

{{1, m}, {2, m}, {3, m}}

True

True

answered Nov 15 '19 at 06:55

NonDairyNeutrino

7,810
1
14
29

Making tuples with values produced by `Range[n]` and a constant $m$

3 Answers3