海底高铁

【题目描述】
一条铁路经过N个城市，每个城市都有一个站。不过，由于各个城市之间不能协调好，于是乘车每经过两个相邻的城市之间（方向不限），必须单独购买这一小段的车票。第i段铁路连接了城市i和城市i+1(1<=i<=N-1)。如果搭乘的比较远，需要购买多张车票。第i段铁路购买纸质单程票需要Ai博艾元。
虽然一些事情没有协调好，各段铁路公司也为了方便乘客，推出了IC卡。对于第i段铁路，需要花Ci博艾元的工本费购买一张IC卡，然后乘坐这段铁路一次就只要扣Bi(Bi<=Ai-1)元。IC卡可以提前购买，有钱就可以从网上买得到，而不需要亲自去对应的城市购买。工本费不能退，也不能购买车票。每张卡都可以充值任意数额。对于第i段铁路的IC卡，无法乘坐别的铁路的车。
Uim现在需要出差，要去M个城市，从城市P1出发分别按照P1,P2,P3…PM的顺序访问各个城市，可能会多次访问一个城市，且相邻访问的城市位置不一定相邻，而且不会是同一个城市。
现在他希望知道，出差结束后，至少会花掉多少的钱，包括购买纸质车票、买卡和充值的总费用。
【输入格式】
第一行两个整数，N，M。
接下来一行，M个数字，表示Pi
接下来N-1行，表示第i段铁路的Ai,Bi,Ci
【输出格式】
一个整数，表示最少花费
【样例输入】
9 10
3 1 4 1 5 9 2 6 5 3
200 100 50
300 299 100
500 200 500
345 234 123
100 50 100
600 100 1
450 400 80
2 1 10
【样例输出】
6394
【说明】
2到3以及8到9买票，其余买卡。
对于30%数据 M=2
对于另外30%数据 N<=1000 ，M<=1000
对于100%的数据 M,N<=100000,Ai,Bi,Ci<=100000
【分析】

表示愤怒！月赛的时候就因为没有用qword用了猥琐的longint而只得了60！比赛结束后修改数据范围，就过了！

var  way,a,b,c:array[0..100001]of qword;    i,n,m,x,y:longint;    ans:qword;//注意qwordprocedure swap(var x,y:longint);var tmp:longint;begin  tmp:=x;    x:=y;    y:=tmp;end;function min(x,y:qword):qword;//注意qwordbegin  if x<y then exit(x) else exit(y);end;begin  readln(n,m);    for i:=1 to m do read(a[i]);    fillchar(way,sizeof(way),0);    for i:=1 to m-1 do begin        x:=a[i]; y:=a[i+1];        if x>y then swap(x,y);        inc(way[x]); dec(way[y]);    end;    x:=0;    for i:=1 to n do begin        x:=x+way[i];        a[i]:=x;    end;    way:=a;    fillchar(a,sizeof(a),0);    ans:=0;    for i:=1 to n-1 do begin        read(a[i],b[i],c[i]);        ans:=ans+min(a[i]*way[i],b[i]*way[i]+c[i]);//比较久行了    end;    write(ans);end.