怎么操作Mathematica的数组列表？

1、用Range给出列表 {1, 2, 3, 4} : 

Range[4]

2、给出前100个正整数的列表：

Range[100]

3、给出列表 {4, 3, 2, 1} :

Reverse@Range@4

4、给出前50个正整数的倒序排列：

Reverse@Range@50

5、给出列表{1,2,3,4,4,3,2,1}:

x = Range@4

Join[x, Reverse@x]

6、绘制散点图：正整数从1增加到100，再减到1. 

x = Range@100;

ListPlot[Join[x, Reverse@x]]

7、给出20个不大于10的随机正整数的列表：

RandomInteger[{1, 10}, 20]

8、用简单的方法求代码 Reverse[Reverse[Range[10]]] 的运行结果：

Range[10]

9、用简单的方法求代码 Join[{1, 2}, Join[{3, 4}, {5}]] 的运行结果：

Range[5]

10、给出 Join[Range[10], Join[Range[10], Range[5]]] 的运行结果：

x = Range[10];

y = Range[5];

Join[x, x, y]

11、Reverse[Join[Range[20], Reverse[Range[20]]]] 运行结果：

Join[Range[20], Reverse[Range[20]]]

12、给出列表 {1, 2, 3, 4, 5, 4, 3, 2, 1}： 

Join[Range[5], Reverse@Range[4]]

或者

Join[Range@4, Reverse@Range@5]

13、给出列表 {3, 2, 1, 4, 3, 2, 1, 5, 4, 3, 2, 1}： 

Join[Flatten@Table[Reverse@Range [n], {n, {3, 4, 5}}]]