USACO1.5 特殊的质数肋骨 Superprime Rib

特殊的质数肋骨

题目描述

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

分析：直接深搜，一位一位搜，第一位一定是2，3，5，7,。

代码

var
  n:longint;

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


procedure dfs(dep,s:longint);
var
  i:longint;
begin
  if dep>=n then
    begin
      writeln(s);
      exit;
    end;
  for i:=1 to 9 do
    if check(s*10+i) then dfs(dep+1,s*10+i);
end;


begin
  readln(n);
  dfs(1,2);
  dfs(1,3);
  dfs(1,5);
  dfs(1,7);
end.