USACO-Chapter1-Section 1.5-SuperPrime Rib (sprime)

【题目描述】

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

【输入格式】

单独的一行包含N。

【输出格式】

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

【样例输入】

4 

【样例输出】

2333
2339
2393
2399
2939
3119
3137
3733
3739
3793
3797
5939
7193
7331
7333
7393

【思路】

      写题前我们先想下，如果一个数字是质数，那么他一定是由1，2，3，5，7，9构成的，然后我们枚举即可构造出答案。（题很简单，真不该放到1.5。）

【代码】

• 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.

{
 ID  : c_CaM.19
 LANG: PASCAL
 TASK: sprime
}
Program CaM(input,output);
Const
  filename='sprime';

Var
  q:array[1..6] of longint=(1,2,3,5,7,9);
  num,l:longint;

Procedure innt;
Begin
  assign(input,filename+'.in'); reset(input);
  assign(output,filename+'.out'); rewrite(output);
End;

Procedure outt;
Begin
  close(input);
  close(output);
End;

Function ok(x:longint):boolean;
Var
  i:longint;
Begin
  if x=2 then exit(true);
  if x=1 then exit(false);
  for i:=2 to trunc(sqrt(x)) do
    if x mod i=0 then exit(false);
  exit(true);
End;

Procedure makeit(k:longint);
Var
  i:longint;
Begin
  if k=l+1 then exit;
  for i:=1 to 6 do
    if ok(num*10+q[i]) then
    Begin
      num:=num*10+q[i];
      if k=l then writeln(num) else makeit(k+1);
      num:=(num-q[i])div 10;
    End;
End;

Begin  innt;
  readln(l);
  if l=1 then
  Begin
    writeln(2);
    writeln(3);
    writeln(5);
    writeln(7);
    outt;
    halt;
  End;
  makeit(1); outt;
End.