#include <cstdio>

 #include <cstring>

 #include <iostream>

 #include <algorithm>

 #include <map>

 using namespace std;

 const int maxn=+;

 int head[maxn],Next[*maxn],to[*maxn],col[*maxn],val[maxn];

 int n,sz;

 long long ans;

 void add_edge(int a,int b,int c){

     sz++;

     to[sz]=b;

     col[sz]=c;

     Next[sz]=head[a];

     head[a]=sz;

 }

 long long f[maxn],num[maxn];

 void dp(int u,int fa,int co){

     long long alltmp=,allnum=;

     num[u]=;f[u]=val[u];

     map<int,long long>Mdp;

     map<int,long long>Mnum;

     for(int i=head[u];i;i=Next[i]){

         int v=to[i];

         if(v!=fa){

             dp(v,u,col[i]);

             if(co!=col[i]){

                 f[u]+=f[v]+val[u]*num[v];

                 num[u]+=num[v];

             }

             ans+=f[v]+val[u]*num[v];

             alltmp+=f[v]+val[u]*num[v];

             allnum+=num[v];

             Mnum[col[i]]+=num[v];

             Mdp[col[i]]+=f[v]+val[u]*num[v];

         }

     }

     long long temp=;

     for(int i=head[u];i;i=Next[i]){

         if(to[i]!=fa){

             temp+=f[to[i]]*(allnum-Mnum[col[i]])+num[to[i]]*(alltmp-Mdp[col[i]]);

         }

     }

     ans+=temp/;

 }

 int main(){

     while(scanf("%d",&n)!=EOF){

         ans=;

         memset(head,,sizeof(head));

         sz=;

         for(int i=;i<=n;i++)

             scanf("%d",&val[i]);

         int a,b,c;

         for(int i=;i<n;i++){

             scanf("%d%d%d",&a,&b,&c);

             add_edge(a,b,c);

             add_edge(b,a,c);

         }

         dp(,,);

         printf("%lld\n",ans);

     }

 return ;

 }