囧了，qword 打成 word

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

一开始初始化把F[0,0]：=1 更具严谨性

把F:=1(I = 1 TO N)可能会造成错误

膜拜oimaster的点击此处

编译通过...

├ 测试数据 01：答案正确... -1ms

├ 测试数据 02：答案正确... -1ms

├ 测试数据 03：答案正确... -1ms

├ 测试数据 04：答案正确... -1ms

├ 测试数据 05：答案正确... -1ms

├ 测试数据 06：答案正确... -1ms

├ 测试数据 07：答案正确... -1ms

├ 测试数据 08：答案正确... -1ms

├ 测试数据 09：答案正确... -1ms

├ 测试数据 10：答案正确... -1ms

├ 测试数据 11：答案正确... -1ms

├ 测试数据 12：答案正确... -1ms

├ 测试数据 13：答案正确... -1ms

├ 测试数据 14：答案正确... -1ms

├ 测试数据 15：答案正确... -1ms

├ 测试数据 16：答案正确... -1ms

├ 测试数据 17：答案正确... -1ms

├ 测试数据 18：答案正确... -1ms

├ 测试数据 19：答案正确... -1ms

├ 测试数据 20：答案正确... -1ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：-20ms

郁闷

f:=1写成f[1,i]:=1了。。交了4次

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

⊙﹏⊙bbbb 瀑布汗~~~~~~~~~~~~~

俺删文件命令时把输出删了~~~~~~~~~~

于是：

编译通过...

├ 测试数据 01：运行超时|无输出...

├ 测试数据 02：运行超时|无输出...

├ 测试数据 03：运行超时|无输出...

├ 测试数据 04：运行超时|无输出...

├ 测试数据 05：运行超时|无输出...

├ 测试数据 06：运行超时|无输出...

├ 测试数据 07：运行超时|无输出...

├ 测试数据 08：运行超时|无输出...

├ 测试数据 09：运行超时|无输出...

├ 测试数据 10：运行超时|无输出...

├ 测试数据 11：运行超时|无输出...

├ 测试数据 12：运行超时|无输出...

├ 测试数据 13：运行超时|无输出...

├ 测试数据 14：运行超时|无输出...

├ 测试数据 15：运行超时|无输出...

├ 测试数据 16：运行超时|无输出...

├ 测试数据 17：运行超时|无输出...

├ 测试数据 18：运行超时|无输出...

├ 测试数据 19：运行超时|无输出...

├ 测试数据 20：运行超时|无输出...

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：0 有效耗时：0ms

第三点超了longint 注意要用int64

╮(╯▽╰)╭ 3次ac

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

MS了,可是不是一次AC

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

这题难吗？

18行程序就秒杀

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：运行超时...

├ 测试数据 04：答案正确... 72ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 72ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 228ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 369ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 25ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

var n,m:integer;

a:array[1..101] of integer;

i:integer;

r:int64;

procedure ss(y,b:integer);

var f:integer;

begin

f:=0;

if b>n then exit;

if y=m then begin r:=r+1;exit;end;

for f:=b+1 to n-m+y+1 do if a[f]>=a then ss(y+1,f);

end;

begin

readln(n,m);

for i:=1 to n do read(a[i]);

for i:=1 to n-m+1 do ss(1,i);

writeln(r);

readln;

readln;

end.

第三个点的数据，who has?

Program vj_1408;

Var

n, m, i, t: Longint;

ans: int64;

a, b: Array[0..100] Of Longint;

Procedure main(k: Longint);

Var i, j: Longint;

Begin

If t = m Then Begin

Inc(ans);

Exit;

End

Else For i:=k To n Do

If a[i] >= b[t] Then Begin

Inc(t);

b[t] := a[i];

main(i + 1);

Dec(t);

End;

End;

Begin

ReadLn(n, m);

For i:=1 To n Do Read(a[i]);

For i:=0 To m Do b[i] := -20000;

ans := 0;

t := 0;

main(1);

WriteLn(ans);

End.

为什么第三个和十一个点过不去？？

组合想了1个小时都不对，无奈还是用dp了

靠！！！！！！

我自己开int64时，自己测试用了

100 20

1 2 3 4 5......99 100

这个极端数据，结果超出范围，就编了一个高精度，超时了。

后来侥幸用int64去试试，却AC了！！！！！！

VIJOS的数据也太弱了吧，跟USACO的比都不能比！！！！！！

AC的第100题，

庆祝下！！！！！！！！！！！！！！！！

AC 的第80道

与楼下的同庆一下~~~~~

古韵之乞讨??????

100

program p1408;

var

n,m,i,j,k:integer;

ans:int64;

a:array[1..100] of integer;

f:array[1..100,1..100] of int64;

function min(x,y:integer):integer;

begin

if x

核心代码如下：

for(i=1;i

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

├ 测试数据 11：答案正确... 0ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案正确... 0ms

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 0ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 0ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var a:array[1..100]of longint;

f:array[1..100,1..100]of int64;

i,j,k,m,n:longint;

ans:int64;

begin

readln(n,m);

for i:=1 to n do read(a[i]);

for i:=0 to 101 do

for j:=0 to 101 do

f:=0;

for i:=1 to n do f:=1;

for i:=2 to m do

for j:=i to n do

for k:=i-1 to j-1 do

if a[j]>=a[k] then f[j,i]:=f[j,i]+f[k,i-1];

for i:=m to n do ans:=ans+f;

write(ans);

end.