【1013】数字河

描述

数字河中的一个数n 的后继数是n 加上其每位数字的和。例如，12345的后继数是12360，因为12345＋1＋2＋3＋4＋5＝12360。如果数字河的第一个数为k，我们就称此数字河为river k。例如，river 480 代表序列{480, 492, 507, 519, ...}，river 483 代表序列{483, 498, 519, ...}。
当两个数字河有相同的元素时，我们称这两个数字河在此元素处相遇。例如，river 480 和river 483 在元素519处相遇。所有数字河都会和river 1, river 3 或river 9 相遇。编程计算给定的数字河最先与以上三条河流中的哪一条相遇，在何元素处相遇？

 

输入

输入文件包括多组测试用例，每个测试用例占一行，以“0”标志文件结束，该行无需处理。
每行给定一个整数 n ，(1<=n<=16384) ,即river n。

 

输出

对于每个测试用例输出两行，第一行为测试用例号，第二行输出“first meets river x at y”。其中，y表示river n 最先遇到的river x中的最小元素值(x = 1,3,9)。

 

输入样例

117
52
0

 

输出样例

Case #1
first meets river 9 at 117
Case #2

first meets river 1 at 107

#include<iostream>using namespace std;int main(){int a,i,A[10000];int b,c,d,e,b1,c1,d1,e1,j,k,m=0,B[10000],C[10000],D[10000],E[10000];//输入数据 for(i=1;;i++){cin>>A[i];if(A[i]==0)break;}//定义river 1,3,9for(j=1;j<10000;j++){B[1]=1;C[1]=3;D[1]=9;if(B[j]<10){B[j+1]=2*B[j];}b=B[j];if(B[j]>=10){B[j+1]=B[j];while(b>=10){b1=b%10;b=b/10;B[j+1]=B[j+1]+b1;}B[j+1]=B[j+1]+b;}if(C[j]<10){C[j+1]=2*C[j];}c=C[j];if(C[j]>=10){C[j+1]=C[j];while(c>=10){c1=c%10;c=c/10;C[j+1]=C[j+1]+c1;}C[j+1]=C[j+1]+c;}if(D[j]<10){D[j+1]=2*D[j];}d=D[j];if(D[j]>=10){D[j+1]=D[j];while(d>=10){d1=d%10;d=d/10;D[j+1]=D[j+1]+d1;}D[j+1]=D[j+1]+d;}}//river n赋值 for(j=1;j<10000;j++){if(A[j]==0)break;if(A[j]!=0){E[1]=A[j];m=m+1;for(i=1;i<10000;i++){if(E[i]<10){E[i+1]=2*E[i];}e=E[i];if(E[i]>=10){E[i+1]=E[i];while(e>=10){e1=e%10;e=e/10;E[i+1]=E[i+1]+e1;}E[i+1]=E[i+1]+e;}for(k=1;k<10000;k++){if(B[k]==E[i]){cout<<"Case #"<<m<<endl;cout<<"first meets river 1 at "<<E[i]<<endl;break;}if(C[k]==E[i]){cout<<"Case #"<<m<<endl;cout<<"first meets river 3 at "<<E[i]<<endl;break;}if(D[k]==E[i]){cout<<"Case #"<<m<<endl;cout<<"first meets river 9 at "<<E[i]<<endl;break;}}if(B[k]==E[i]||C[k]==E[i]||D[k]==E[i])break;}}}return (0);}

PS：昨天晚上这道题一直没看出问题来，发给老师看，老师说：你这主函数一百多行，可读性太差了。我。。。懒得改了，暂时这样看着吧【也许某天突然有空了会来重新写一遍】