Mathematica编程：Reshape函数

Mathematica具有强大的符号运算功能，可以实现复杂的数学符号运算和数值运算

1）编制Reshape 函数实现以下功能：假设A = { {1, 2}, {3, 4}, {5, 6}}，利用 Reshape 函数 B = Reshape[A, {2, 3}]，输出：B = { {1, 2, 3}, {4, 5, 6}}

A = {
    
    {
    
    1, 2}, {
    
    3, 4}, {
    
    5, 6}};
B = ArrayReshape[A, {
    
    2, 3}]
{
    
    {
    
    1, 2, 3}, {
    
    4, 5, 6}}

Reshape[A_, size_] := (
  temp = {
    
    }; rows = size[[1]]; cols = size[[2]];
  Do [temp = Join[temp, A[[i]]], {
    
    i, 1, Length[A]}]; 
  Table[temp[[i*cols + j]], {
    
    i, 0, rows - 1}, {
    
    j, 1, cols}])

Reshape[A, {
    
    2, 3}]