1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
(load("flatten.lisp"),0);
0$
flatten(3);
3$
flatten(-3);
-3$
flatten(2/3);
2/3$
flatten(-2/3);
-2/3$
flatten(1.4d2);
1.4d2$
flatten(-3.4d0);
-3.4d0$
flatten(x);
x$
flatten(abc);
abc$
flatten(%pi);
%pi$
flatten(rat(x));
x$
flatten(x[5]);
x[5]$
flatten(x[8,32]);
x[8,32]$
flatten(-x);
-x$
flatten(rat(-x));
-x$
flatten(a+b);
a+b$
flatten(rat(a+b));
a+b$
flatten(a*b);
a*b$
flatten(a/b);
a/b$
flatten(a*b*c);
a*b*c$
flatten(a^b);
a^b$
flatten(a^(a^b));
a^(a^b)$
flatten([]);
[]$
flatten([[]]);
[]$
flatten([x]);
[x]$
flatten([[x]]);
[x]$
flatten(f(g(f(f(x)))));
f(g(f(f(x))))$
flatten(f(f(g(f(x)))));
f(g(f(x)))$
/* Examples from Macsyma 422 */
flatten([a,b,[c,[d]],e,[[f],g,h]]);
[a,b,c,d,e,f,g,h]$
flatten([a,b([c]),[d]]);
[a,b([c]),d]$
flatten(f(f(a,b), f(c,d)));
f(a,b,c,d)$
flatten(f[1](f[1](a,b), f[1](c,d)));
f[1](a,b,c,d)$
|
