Generate this sequence more efficiently
1
$begingroup$
Is there a more effecient way to generate the sequence shown below. createOrder[n_] := Which[OddQ[n], Join[Table[2 i - 1, {i, 1, (n + 1)/2}],Reverse@Table[2 i, {i, 1, (n + 1)/2}]], EvenQ[n], Join[Table[2 i - 1, {i, 1, n/2 + 1}],Reverse@Table[2 i, {i, 1, n/2}]]] createOrder[#] & /@ Range[8] // MatrixForm
table sequence
share | improve this question
asked 42 mins ago
Hubble07 Hubble07
2,971 7 21
$endgroup$
add a comment ...
