#include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include using namespace std; #define rep(i,a,n) for (int i=a;i<(int)n;i++) #define per(i,a,n) for (int i=n-1;i>=a;i--) #define pb push_back #define mp make_pair #define all(x) (x).begin(),(x).end() #define fi first #define se second #define SZ(x) ((int)(x).size()) #define ACCU accumulate #define TWO(x) (1<<(x)) #define TWOL(x) (1ll<<(x)) #define clr(a) memset(a,0,sizeof(a)) #define POSIN(x,y) (0<=(x)&&(x) VI; typedef vector VS; typedef vector VD; typedef long long ll; typedef long double LD; typedef pair PII; typedef pair PLL; typedef vector VL; typedef vector VPII; typedef complex CD; const int inf=0x20202020; const ll mod=1000000007; const double eps=1e-9; const double pi=3.1415926535897932384626; const int DX[]={1,0,-1,0},DY[]={0,1,0,-1}; ll powmod(ll a,ll b) {ll res=1;a%=mod;for(;b;b>>=1){if(b&1)res=res*a%mod;a=a*a%mod;}return res;} ll powmod(ll a,ll b,ll mod) {ll res=1;a%=mod;for(;b;b>>=1){if(b&1)res=res*a%mod;a=a*a%mod;}return res;} ll gcd(ll a,ll b) { return b?gcd(b,a%b):a;} // head LD dp[1010][1010]; int n,x,_; LD f(int x,int y) { if (x<0||y<0) return 0; else return dp[x][y];} int main() { dp[0][0]=0; rep(i,0,1001) rep(j,0,1001-i) if (i||j) { if (i%2==0) dp[i][j]=i+j+f(i-1,j)*i/(i+j)+f(i,j-1)*j/(i+j); else dp[i][j]=max(f(i-1,j),f(i,j-1)); } for (scanf("%d",&_);_;_--) { scanf("%d",&n); int cnt1=0; rep(i,0,n) scanf("%d",&x),cnt1+=x%2; printf("%.0f\n",(double)(3*dp[cnt1][n-cnt1])); } }