PersonalCorpus 版 (精华区)

寄信人: sino (蚱蜢舟)
标  题: 1134
发信站: 哈工大紫丁香 (2002年03月15日21:45:14 星期五)
来  源: mtlab4.hit.edu.cn 

162717 13:47:59 15 Mar 2002
Bozhang,HIT,P.R.China 1134 Pascal Accepted 0.02 sec 53K

var
    a:array[0..1000] of byte;
    i,j,k,m,n:integer;
begin
    readln(n,m); fillchar(a,sizeof(a),0);
    for i:=1 to m do begin
        while eoln(input) and not eof(input) do readln;
        read(j);
        if j>n then begin writeln('NO');halt end;
        inc(a[j]);
        if a[j]=3 then begin writeln('NO');halt end;
        if (j=0) and (a[j]=2) then begin writeln('NO');halt end;
        if (j=n) and (a[j]=2) then begin writeln('NO');halt end;
    end;
    i:=1; j:=2;
    for k:=0 to n-2 do begin
        if (a[k]>i) or (a[k]>j) then begin
            writeln('NO'); halt
        end;
        i:=i-a[k]; j:=j-a[k];
        m:=i; i:=j; j:=m+2; if i>2 then i:=2;
    end;
    dec(j);
    if (a[n-1]+a[n]>i) or (a[n-1]+a[n]>j) then begin
        writeln('NO');halt
    end;
    writeln('YES');
end.

--
    ... 洪七公笑道：“娃娃，你媳妇儿煮菜的手艺天下第一，你这一生可享定了福。

  他妈的，我年轻时怎么没撞见这样好本事的女人？”言下似乎深以为憾。...

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]