USACO 1.5 特殊的质数肋骨

Description

农民约翰母牛总是产生最好的肋骨。 
你能通过农民约翰和美国农业部标记在每根肋骨上的数字认出它们。 
农民约翰确定他卖给买方的是真正的质数肋骨,是因为从右边开始切下肋骨,每次还剩下的肋骨上的数字都组成一个质数,举例来说: 
7 3 3 1 
全部肋骨上的数字 7331是质数;三根肋骨 733是质数;二根肋骨 73 是质数;当然,最后一根肋骨 7 也是质数。 
7331 被叫做长度 4 的特殊质数。 
写一个程序对给定的肋骨的数目 N (1<=N<=8),求出所有的特殊质数。 
数字1不被看作一个质数。 

Input

单独的一行包含N。

Output

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

Sample Input

 

4

 

Sample Output

 

2333 

2339 

2393 

2399 

2939 

3119 

3137 

3733 

3739 

3793 

3797 

5939 

7193 

7331 

7333 

7393

解题思路：先定义两个常量数组s和a，分别为位数只有一位的质数，另一个数组为一位数的奇数。首先用搜索，把第一位数从s[1]到s[4]进行尝试，然后如果x=n就判断它是否为质数，如果是就输出并退出，如果不是质数就直接退出。再往下一位递归，重复同样的动作，最后输出的肯定都是四位数的特殊质数。

程序：

const

  s:array[1..4] of integer=(2,3,5,7);

  a:array[1..5] of integer=(1,3,5,7,9);

var

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

function check(x:longint):boolean;

  var

    i:longint;

  begin

    for i:=2 to trunc(sqrt(x)) do

      if x mod i=0 then exit(false);

    exit(true);

end;

procedure dfs(x,now:longint);

  var

    i,j,k:longint;

  begin

    if x=n then begin if check(now) then writeln(now); exit; end;

    if not check(now) then exit;

    for i:=1 to 5 do

      dfs(x+1,now*10+a[i]);

end;

begin

  readln(n);

  for i:=1 to 4 do

    dfs(1,s[i]);

end.