记录编号	241531	评测结果	AAAAAAAAAA
题目名称	[NOI 2000]单词查找树	最终得分	100
用户昵称	Twist Fate	是否通过	通过
代码语言	Pascal	运行时间	0.007 s
提交时间	2016-03-25 19:48:05	内存使用	2.61 MiB

program chen;
var
	a:array[1..10000] of string;
	i,j,n,t:longint;
procedure q(l,r:longint);
var
	mid,p:string;
	i,j:longint;
begin
	i:=l;	j:=r;
	mid:=a[(l+r) div 2];
	repeat
		while a[i]<mid do inc(i);
		while a[j]>mid do dec(j);
		if i<=j then begin
			p:=a[i];	a[i]:=a[j];	a[j]:=p;
			inc(i);	dec(j);
		end;
	until i>j;
	if i<r then q(i,r);
	if l<j then q(l,j);
end;
begin
	assign(input,'trie.in');	reset(input);
	assign(output,'trie.out');	rewrite(output);
	while not eof do begin
		n:=n+1;
		readln(a[n]);
	end;
	q(1,n);
	t:=length(a[1]);
	for i:=2 to n do begin	
		j:=1;
		while (a[i][j]=a[i-1][j]) and (j<=length(a[i-1])) do inc(j);
		t:=t+length(a[i])-j+1;
	end;
	writeln(t+1);
	close(input);	close(output);
end.