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.