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}}]]
