Code for "Taming Table in Mathematica 5"
Kristjan Kannike, 2005

Array[f[##][x]&,{2,2}]

Array[f[##][t] &,{}]

Unprotect[Array];Array[x_,{}]=First[Array[x,1,0]];Protect[Array];

Array[f[##][t] &,{}]

iter={i,1,3};

Table[f[i],iter]

iter={i,1,3};Table[f[i],iter//Evaluate]

dims={2,3};

itervars=Apply[Sequence,Map[i[#] &,Range[Length[dims]]]]

iters=Apply[Sequence,MapIndexed[{i[First[#2]],1,#1} &,dims]]

Table[Plus[itervars],iters//Evaluate]

Table[f[itervars][x],iters//Evaluate]

dims2={}

itervars2=Apply[Sequence,Map[i[#] &,Range[Length[dims2]]]]

iters2=Apply[Sequence,MapIndexed[{i[First[#2]],1,#1} &,dims2]]

Table[f[itervars2][x],iters2//Evaluate]