1250

1250. 长方形 (Standard IO)

Time Limits: 1000 ms  Memory Limits: 262144 KB  Detailed Limits  

Goto ProblemSet

Description

小明今天突发奇想，想从一张用过的纸中剪出一个长方形。
为了简化问题，小明做如下的规定：
（1）这张纸的长度、宽度分别为n，m。小明将这张纸看成是由n*m个格子组成，在剪的时候，只能沿着格子的边缘剪。
（2）这张纸有些地方小明以前在上面画过，剪出来的长方形不能含有以前画过的地方。
（3）剪出来的长方形的大小没有限制。
小明看着这张纸，想到了好多好多种剪的方法，可是到底有多少种呢？小明数不过来了，你能帮帮他吗？

Input

第一行两个正整数，n，m，表示这张纸的长度和宽度。
接下来有n行，每行m个字符，每个字符为‘*’或者‘.’。
字符‘*’表示以前在这个格子上画过，字符‘.’表示以前在这个格子上没有画过。

Output

仅一个整数，表示方案数。

Sample Input

6 4.....***.*...***...*.***

Sample Output

38

Data Constraint

Hint

数据规模

对于10%的数据，满足1<=n<=10，1<=m<=10
对于30%的数据，满足1<=n<=50，1<=m<=50
对于60%的数据，满足1<=n<=200，1<=m<=200
对于100%的数据，满足1<=n<=1000，1<=m<=1000
最后一个点所有的字符都为‘.’。

var        a,b,c,i,j,k,last,o:longint;        v:array[1..1000,1..1000]of char;        f:array[0..1000,1..1001]of longint;        r:array[0..1000]of longint;        r1:array[0..10000]of longint;        t:array[1..1000]of longint;        ans:int64;begin        //assign(input,'1.in');reset(input);        readln(a,b);        for i:=1 to a do        begin                for j:=1 to b do                        read(v[i,j]);                readln;        end;        for i:=1 to b do        begin                for j:=1 to a do                begin                        if v[j,i]='.' then                                f[j,i]:=f[j-1,i]+1;                end;        end;        for i:=1 to a do        begin                fillchar(r,sizeof(r),0);                last:=0;                for j:=1 to b do                begin                        if v[i,j]='*' then                        begin                                last:=0;                        end                        else                        begin                        k:=j-1;                        o:=0;                        while f[i,j]<r[k] do                        begin                                last:=last-r[k]+f[i,j];                                r[k]:=f[i,j];                                dec(k);                                inc(o);                        end;                        inc(k,o+1);                        r[k]:=f[i,j];                        last:=last+f[i,j];                        ans:=ans+last;                        end;                end;        end;        writeln(ans);        close(input);end.