JZOJ1255.【USACO题库】1.5.3 Superprime Rib特殊的质数肋骨

题目描述

农民约翰母牛总是产生最好的肋骨。

你能通过农民约翰和美国农业部标记在每根肋骨上的数字认出它们。

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

7 3 3 1

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

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

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

数字1不被看作一个质数。

PROGRAM NAME: sprime

INPUT FORMAT

单独的一行包含N。

SAMPLE INPUT (file sprime.in)

4

OUTPUT FORMAT

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

SAMPLE OUTPUT (file sprime.out)

2333

2339

2393

2399

2939

3119

3137

3733

3739

3793

3797

5939

7193

7331

7333

7393

输入

输出

样例输入

样例输出

数据范围限制

思路：

明显地，直接暴力N位数再判断会爆时间

实际上，这题也很简单

直接dfs，从末尾加上0~9判断质数，到n位时输出

代码：

var
n:longint;
function judge(n:longint):boolean;
var
i:longint;
begin
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
exit(false);
exit(true);
end;
procedure dfs(s:longint);
var
st:string;
i:longint;
begin
str(s,st);
if length(st)=n then
begin
writeln(s);

4000
exit;
end;
for i:=1 to 9 do
if judge(s*10+i) then
dfs(s*10+i);
end;
begin
readln(n);
dfs(0);
end.