JZOJ1263.【USACO题库】2.2.3 Runaround Numbers循环数

题目描述

循环数是那些不包括0这个数字的没有重复数字的整数 (比如说, 81362) 并且同时具有一个有趣的性质, 就像这个例子:

如果你从最左边的数字开始 ( 在这个例子中是8) 数最左边这个数字个数字到右边(回到最左边如果数到了最右边),你会停止在另一个新的数字(如果没有停在一个不同的数字上，这个数就不是循环数). 就像: 8 1 3 6 2 从最左边接下去数8个数字: 1 3 6 2 8 1 3 6 所以下一个数字是6.

重复这样做 (这次从“6”开始数6个数字) 并且你会停止在一个新的数字上: 2 8 1 3 6 2, 也就是2.

再这样做 (这次数两个): 8 1

再一次 (这次一个): 3

又一次: 6 2 8 这是你回到了起点, 在从每一个数字开始数1次之后. 如果你在从每一个数字开始数一次以后没有回到起点, 你的数字不是一个循环数。

给你一个数字 M (在1到9位之间), 找出第一个比 M大的循环数, 并且一定能用一个无符号长整形数装下。

PROGRAM NAME: runround

INPUT FORMAT

仅仅一行, 包括M

SAMPLE INPUT (file runround.in)

81361

OUTPUT FORMAT

仅仅一行，包括第一个比M大的循环数。

SAMPLE OUTPUT (file runround.out)

81362

输入

输出

样例输入

样例输出

数据范围限制

刚刚看题时，WTF，后来想了一想，数据并不是很大，安心的打暴力吧（其实并不是怎么放心）

那么开始开心的打暴力，十五分钟后，第一个暴力打好了

以下是第一次暴力的代码：（注意这不是AC代码）

var
a:array[0..10]of longint;
n,i,j:longint;
function doit(x:longint):longint;
var
i,len:longint;
s:string;
begin
str(n,s);
len:=length(s);
i:=len;
fillchar(a,sizeof(a),0);
while x>0 do
begin
a[i]:=x mod 10;
x:=x div 10;
dec(i);
end;
exit(len)
end;
function judge(x:longint):boolean;
var
bz:array[0..10]of boolean;
i,j,seat:longint;
begin
fillchar(bz,sizeof(bz),true);
for i:=1 to x do
begin
if a[i]=0 then exit(false);
if bz[a[i]]then bz[a[i]]:=false
else exit(false);
end;

fillchar(bz,sizeof(bz),false);
for i:=1 to x do
bz[i]:=true;
bz[1]:=false;
seat:=1;
i:=(a[seat] mod x)+1;
while bz[i] do
begin
seat:=i;
bz[seat]:=false;
for j:=1 to a[seat] do
begin
inc(i);
if i=x+1 then i:=1;
end;
end;
for i:=1 to 9 do
if bz[i] then exit(false);
exit(true);
end;
begin
readln(n);
while true do
begin
inc(n);
i:=doit(n);
if judge(i)then
begin
for i:=1 to 10 do
if a[i]<>0 then
write(a[i]);
halt;
end;
end;
end.

可能比较难懂的地方是，中间judge那一部分的bz数组前后不是一个用途的

如果看不出bz数组前后都是干什么的，请再认真看一看

暴力打好了，交到OJ上一看



WTF，连忙看了看题，OK，最后看出来最后一下要落到第一位

接着稍微改了改自己的代码，第二次交，然后



以下是AC代码：

var
a:array[0..10]of longint;//a数组存分解每一位数，不难懂
n,i,j:longint;
function doit(x:longint):longint;//doit用来分解每一位数，方法很多，这一种可能比较难看
var
i,len:longint;
s:string;
begin
str(n,s);
len:=length(s);
i:=len;
fillchar(a,sizeof(a),0);
while x>0 do
begin
a[i]:=x mod 10;
x:=x div 10;
dec(i);
end;
exit(len)
end;
function judge(x:longint):boolean;//judge用来判断……
var
bz:array[0..10]of boolean;
i,j,seat:longint;
begin
fillchar(bz,sizeof(bz),true);
for i:=1 to x do
begin
if a[i]=0 then exit(false);
if bz[a[i]]then bz[a[i]]:=false
else exit(false);
end;
//attention,前面的bz数组是用来判断数字重复的，为了方便我就不多开另一个数组了
fillchar(bz,sizeof(bz),false);
for i:=1 to x do
bz[i]:=true;
bz[1]:=false;
seat:=1;
i:=(a[seat] mod x)+1;
while bz[i] do
begin
seat:=i;
bz[seat]:=false;
for j:=1 to a[seat] do
begin
inc(i);
if i=x+1 then i:=1;//直接模拟走a[seat]步
end;
end;
if i<>1 then exit(false);
for i:=1 to 9 do
if bz[i] then exit(false);
exit(true);
//这上面的bz数组用来判断走过的位置，看懂这里，整个程序就简单了
end;
begin
readln(n);
while true do
begin
inc(n);
i:=doit(n);
if judge(i)then
begin
for i:=1 to 10 do
if a[i]<>0 then
write(a[i]);//输出
halt;
end;
end;
end.

不过说实话，刚打完的这段代码，我自己好（gen）像（ben）看不懂。

如果你看着看着觉得我的代码有（shi）点（fen）恶心，请见谅