usaco1.3 crypt1 2008.11.5

usaco1.3 crypt1 2008.11.5

{Tips：

1.用到了哈希判重

2.这是一道简单的题，只要耐心就行了。}

{

ID:

PROG: crypt1

LANG: PASCAL

}

 program kakashi;   const     oo:array[1..9]of char=('1','2','3','4','5','6','7','8','9');    var      num:array[1..9,1..9,1..9,1..9]of -1..1;      x,i,j,k,m,n,p,tot:longint;      a:array[1..9]of 1..9;      b:set of '0'..'9';      f1,f2:text;    function deal(uu,la,lb:longint):boolean;    var      ux:string;      lx,s:longint;      begin        if (uu>la)and(uu<lb) then          begin            str(uu,ux);            lx:=length(ux);            deal:=true;            for s:=1 to lx do             if not(ux[s]in b) then deal:=false;          end          else deal:=false;      end;    procedure find(y:longint);      begin          if deal(x*a[y],99,1000) then num[i,j,k,y]:=1 else num[i,j,k,y]:=-1;      end;  begin      assign(f1,'crypt1.in');      reset(f1);      assign(f2,'crypt1.out');      rewrite(f2);      readln(f1,p);      fillchar(num,sizeof(num),0);      tot:=0;      for i:=1 to p do        read(f1,a[i]);      for i:=1 to p do        b:=b+[oo[a[i]]];      for i:=1 to p do        for j:=1 to p do          for k:=1 to p do            begin              x:=100*a[i]+10*a[j]+a[k];              for m:=1 to p do                if (num[i,j,k,m]<>-1) then                begin                   if (num[i,j,k,m]=0) then                       find(m);                       if num[i,j,k,m]=1 then                          for n:=1 to p do                             if (num[i,j,k,n]<>-1) then                          {=3=}begin                                 if num[i,j,k,n]=0 then                                     find(n);                                     if num[i,j,k,n]=1 then                                       if (deal(x*(10*a[m]+a[n]),999,10000)) then                                         inc(tot);                          {=3=}end;        {=1=}   end;          end;          writeln(f2,tot);          close(f1);          close(f2);          end.

data

TASK: crypt1

LANG: PASCAL

 

Compiling...

Compile: OK

 

Executing...

     Test 1: TEST OK [0 secs]

     Test 2: TEST OK [0.004 secs]

     Test 3: TEST OK [0.004 secs]

     Test 4: TEST OK [0 secs]

     Test 5: TEST OK [0.004 secs]

     Test 6: TEST OK [0.004 secs]

     Test 7: TEST OK [0.004 secs]

 

All tests OK.

YOUR PROGRAM ('crypt1') WORKED FIRST TIME!  That's fantastic

-- and a rare thing.  Please accept these special automated

congratulations.

 

Here are the test data inputs:

 

 

------- test 1 -------

5

2 3 4 6 8

------- test 2 -------

4

2 3 5 7

------- test 3 -------

1

1

------- test 4 -------

7

4 1 2 5 6 7 3

------- test 5 -------

8

9 1 7 3 5 4 6 8

------- test 6 -------

6

1 2 3 5 7 9

------- test 7 -------

9

1 2 3 4 5 6 7 8 9

----------------------

 

Keep up the good work!

 

 

Thanks for your submission!