usaco 1.5.3——sprime

Superprime Rib 特殊的质数肋骨

描述

农民约翰的母牛总是生产出最好的肋骨。你能通过农民约翰和美国农业部标记在每根肋骨上的数字认出它们。

农民约翰确定他卖给买方的是真正的质数肋骨,是因为从右边开始切下肋骨,每次还剩下的肋骨上的数字都组成一个质数,举例来说:

7 3 3 1

全部肋骨上的数字 7331是质数;三根肋骨 733是质数;二根肋骨 73 是质数;当然,最后一根肋骨 7 也是质数。

7331 被叫做长度 4 的特殊质数。

写一个程序对给定的肋骨的数目 N (1<=N<=8),求出所有的特殊质数。数字1不被看作一个质数。

格式

PROGRAM NAME: sprime

INPUT FORMAT:

(file sprime.in)

单独的一行包含N。

OUTPUT FORMAT:

(file sprime.out)

按顺序输出长度为 N 的特殊质数,每行一个。

SAMPLE INPUT

4

SAMPLE OUTPUT

2333

2339

2393

2399

2939

3119

3137

3733

3739

3793

3797

5939

7193

7331

7333

7393

Compiling...
Compile: OK

Executing...
   Test 1: TEST OK [0.000 secs, 276 KB]
   Test 2: TEST OK [0.000 secs, 276 KB]
   Test 3: TEST OK [0.000 secs, 276 KB]
   Test 4: TEST OK [0.000 secs, 276 KB]
   Test 5: TEST OK [0.000 secs, 276 KB]

All tests OK.

YOUR PROGRAM ('sprime') WORKED FIRST TIME! That's fantastic -- and a rare thing. Please accept these special automated congratulations.

分析：这道题也是极为easy，

有了上一道的枚举构造的思想，

很容易就能编出来。

上代码，不解释。

{
ID: codeway3
PROG: sprime
LANG: PASCAL
}
program sprime;
  var
    i,j,n,m,k,l:longint;
    c:array[0..5]of longint;

  function prime(x:longint):boolean;
    var
      i,j:longint;
    begin
      for j:=2 to trunc(sqrt(x)) do
        if x mod j=0 then exit(false);
      exit(true);
    end;

  procedure doing(loc,x:longint);
    var
      i,j:longint;
    begin
      if loc=n then writeln(x)
        else for i:=0 to 5 do
          begin
            j:=x*10+c[i];
            if prime(j) then doing(loc+1,j);
          end;
    end;

  begin
    assign(input,'sprime.in');
    reset(input);
    assign(output,'sprime.out');
    rewrite(output);
    readln(n);
    c[0]:=1;c[1]:=2;c[2]:=3;c[3]:=5;c[4]:=7;c[5]:=9;
    for i:=1 to 5 do
      if prime(c[i]) then doing(1,c[i]);
    close(input);
    close(output);
  end.