@@ -947,18 +947,6 @@ class Flatten(Builtin):
947947 >> Flatten[{{1, 2, 3}, {4}, {6, 7}, {8, 9, 10}}, {{2}, {1}}]
948948 = {{1, 4, 6, 8}, {2, 7, 9}, {3, 10}}
949949
950- #> Flatten[{{{111, 112, 113}, {121, 122}}, {{211, 212}, {221, 222, 223}}}, {{3}, {1}, {2}}]
951- = {{{111, 121}, {211, 221}}, {{112, 122}, {212, 222}}, {{113}, {223}}}
952-
953- #> Flatten[{{{1, 2, 3}, {4, 5}}, {{6, 7}, {8, 9, 10}}}, {{3}, {1}, {2}}]
954- = {{{1, 4}, {6, 8}}, {{2, 5}, {7, 9}}, {{3}, {10}}}
955-
956- #> Flatten[{{{1, 2, 3}, {4, 5}}, {{6, 7}, {8, 9, 10}}}, {{2}, {1, 3}}]
957- = {{1, 2, 3, 6, 7}, {4, 5, 8, 9, 10}}
958-
959- #> Flatten[{{1, 2}, {3,4}}, {1, 2}]
960- = {1, 2, 3, 4}
961-
962950 #> Flatten[{{1, 2}, {3, 4}}, {{-1, 2}}]
963951 : Levels to be flattened together in {{-1, 2}} should be lists of positive integers.
964952 = Flatten[{{1, 2}, {3, 4}}, {{-1, 2}}, List]
@@ -969,29 +957,15 @@ class Flatten(Builtin):
969957
970958 ## Check `n` completion
971959 #> m = {{{1, 2}, {3}}, {{4}, {5, 6}}};
972- #> Flatten[m, {2}]
973- = {{{1, 2}, {4}}, {{3}, {5, 6}}}
974- #> Flatten[m, {{2}}]
975- = {{{1, 2}, {4}}, {{3}, {5, 6}}}
976- #> Flatten[m, {{2}, {1}}]
977- = {{{1, 2}, {4}}, {{3}, {5, 6}}}
978- #> Flatten[m, {{2}, {1}, {3}}]
979- = {{{1, 2}, {4}}, {{3}, {5, 6}}}
980960 #> Flatten[m, {{2}, {1}, {3}, {4}}]
981961 : Level 4 specified in {{2}, {1}, {3}, {4}} exceeds the levels, 3, which can be flattened together in {{{1, 2}, {3}}, {{4}, {5, 6}}}.
982962 = Flatten[{{{1, 2}, {3}}, {{4}, {5, 6}}}, {{2}, {1}, {3}, {4}}, List]
983963
984- ## #251 tests
964+ ## Test from issue #251
985965 #> m = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}};
986- #> Flatten[m, {1}]
987- = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}
988- #> Flatten[m, {2}]
989- = {{1, 4, 7}, {2, 5, 8}, {3, 6, 9}}
990966 #> Flatten[m, {3}]
991967 : Level 3 specified in {3} exceeds the levels, 2, which can be flattened together in {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}.
992968 = Flatten[{{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}, {3}, List]
993- #> Flatten[m, {2, 1}]
994- = {1, 4, 7, 2, 5, 8, 3, 6, 9}
995969
996970 ## Reproduce strange head behaviour
997971 #> Flatten[{{1}, 2}, {1, 2}]
@@ -1001,16 +975,9 @@ class Flatten(Builtin):
1001975 : Level 1 specified in {1, 2} exceeds the levels, 0, which can be flattened together in a[b[1, 2], b[3]].
1002976 = Flatten[a[b[1, 2], b[3]], {1, 2}, b]
1003977
1004- #> Flatten[{{1, 2}, {3, {4}}}, {{1, 2}}]
1005- = {1, 2, 3, {4}}
1006978 #> Flatten[{{1, 2}, {3, {4}}}, {{1, 2, 3}}]
1007979 : Level 3 specified in {{1, 2, 3}} exceeds the levels, 2, which can be flattened together in {{1, 2}, {3, {4}}}.
1008980 = Flatten[{{1, 2}, {3, {4}}}, {{1, 2, 3}}, List]
1009-
1010- #> Flatten[p[1, p[2], p[3]]]
1011- = p[1, 2, 3]
1012- #> Flatten[p[1, p[2], p[3]], 2]
1013- = p[1, 2, 3]
1014981 """
1015982
1016983 rules = {
0 commit comments