[SCOI2016]背单词

题目大意：
　　给你n个字符串，不同的排列有不同的代价，代价按照如下方式计算（字符串s的位置为x）：
　　1.排在s后面的字符串有s的后缀，则代价为n^2；
　　2.排在s前面的字符串有s的后缀，且没有排在s后面的s的后缀，则代价为x-y（y为最后一个与s不相等的后缀的位置）；
　　3.s没有后缀，则代价为x。
　　求最小代价和。

思路：
　　很显然，将这些字符串倒过来后，所有的后缀都变成了前缀，而处理前缀问题的好工具是Trie，因此我们可以考虑将这些字符串倒过来建立一棵Trie。
　　分析不同情况下的代价，很显然，在1的情况下，得到的代价比其他的都大，容易证明在1的情况下，将这个后缀移到s的前面，代价总会比原来小。
　　所以我们不能让情况1出现。
　　考虑一个贪心。
　　只考虑那些为字符串结尾字符的结点，我们要保证每个结点的编号减去其父亲结点编号的和最小。
　　这样从小到大遍历每个结点的子树，得到每个结点的编号即可。

#include<cstdio>
#include<vector>
#include<cstring>
#include<algorithm>
const int N=100001;
const int LEN=510001;
char s[LEN];
std::vector<int> e[N];
int size[N];
long long f[N];
bool cmp(const int &x,const int &y) {
    return size[x]<size[y];
}
class Trie {
    private:
        static const int MAX_NODE=LEN;
        static const int SIGMA_SIZE=26;
        struct Node {
            Node *ch[SIGMA_SIZE];
            int val;
            Node() {
                memset(ch,0,sizeof ch);
                val=0;
            }
        };
        int idx(const char &ch) {
            return ch-'a';
        }
    public:
        Node *root;
        Trie() {
            root=new Node;
        }
        void insert(char s[],const int &id) {
            Node *p=root;
            for(unsigned i=strlen(s)-1;~i;i--) {
                int w=idx(s[i]);
                if(p->ch[w]) {
                    p=p->ch[w];
                } else {
                    p=p->ch[w]=new Node;
                }
            }
            p->val=id;
        }
        void rebuild(const Node *x,const int &p) {
            if(x->val) {
                e[p].push_back(x->val);
            }
            for(unsigned i=0;i<SIGMA_SIZE;i++) {
                Node *y=x->ch[i];
                if(!y) continue;
                rebuild(y,x->val?x->val:p);
            }
            delete x;
        }
        void getsize(const int &x) {
            size[x]=1;
            for(unsigned i=0;i<e[x].size();i++) {
                int &y=e[x][i];
                getsize(y);
                size[x]+=size[y];
            }
            std::sort(e[x].begin(),e[x].end(),cmp);
        }
        void solve(const int &x) {
            f[x]=1;
            long long tmp=0;
            for(unsigned i=0;i<e[x].size();i++) {
                int &y=e[x][i];
                solve(y);
                f[x]+=f[y]+tmp;
                tmp+=size[y];
            }
        }
};
Trie t;
int main() {
    int n;
    scanf("%d",&n);
    for(int i=1;i<=n;i++) {
        scanf("%s",s);
        t.insert(s,i);
    }
    t.rebuild(t.root,0);
    t.getsize(0);
    t.solve(0);
    printf("%lld\n",f[0]-1);
    return 0;
}