NO8：2004年7月6日（火）「カプレカ数」を求めるプログラムが二人の方から寄せられましたから、お知らせします。
＜「kasama」さんから＞『掲示板に「上で示したような計算の繰り返しを経て・・・」とありますが、文章中の「上」とはどのような反復計算かわかりませんが．．．たぶん、http://cwaweb.bai.ne.jp/~tmis/keisan/jv4321.htmlに公開ているjavaとc++のプログラムのロジックと同じではないかと思います。ご参考にされていはどうでしょうか。』
＜「浜田明巳」さんから＞『エクセルで関数化しました．Ｃにも簡単に移植出来るはずです．k(n,1)でｎのカプレカ数を，k(n,2)でその回数を求めます．
Private Function kapureka(ByVal n As Integer) As Integer
Dim a(4) As Integer
Dim b(4) As Integer
Dim dummy As Integer
Dim j1 As Integer
Dim j2 As Integer
For j1 = 1 To 4
a(j1) = n Mod 10
n = n \ 10
b(j1) = a(j1)
Next j1
For j1 = 1 To 4 - 1
For j2 = j1 + 1 To 4
If a(j1) < a(j2) Then
dummy = a(j1)
a(j1) = a(j2)
a(j2) = dummy
End If
If b(j1) > b(j2) Then
dummy = b(j1)
b(j1) = b(j2)
b(j2) = dummy
End If
Next j2
Next j1
kapureka = 0
dummy = 0
For j1 = 1 To 4
kapureka = kapureka * 10 + a(j1)
dummy = dummy * 10 + b(j1)
Next j1
kapureka = kapureka - dummy
End Function
Private Function k(ByVal n As Integer, ByVal i As Integer) As Integer
Dim k1 As Integer
Dim k2 As Integer
Dim k20 As Integer
k1 = 0
k2 = n
k20 = -1
While k2 <> k20 And k1 <= 9999
k1 = k1 + 1
k20 = k2
k2 = kapureka(k2)
Wend
If i = 1 Then
k = k1 - 1
Else
k = k2
End If
End Function
ＰＳ．実際にはＣで作ったのですが，本当に私が作ってしまってよかったんでしょうか．あの書き方を読むと，何かの課題らしいので，本人以外が代わりに作るのはよくないのでは？
/* kp.c */
#include
#include
int kp(int n);
void main(){
int n,k1=0,k2,k20=-1;
printf("n=");
scanf("%d",&n);
k2=n;
while(k2!=k20&&k1<=9999){
k1++;
k20=k2;
k2=kp(k2);
}
k1--;
printf("n=%d, カプレラ数=%d, 回数=%d\n",n,k2,k1);
getch();
}
int kp(int n){
int a[5],b[5],dummy,k=0,j1,j2;
for(j1=1;j1<=4;j1++){
a[j1]=n%10;
n/=10;
b[j1]=a[j1];
}
for(j1=1;j1<4;j1++){
for(j2=j1+1;j2<=4;j2++){
if(a[j1] dummy=a[j1];
a[j1]=a[j2];
a[j2]=dummy;
}
if(b[j1]>b[j2]){
dummy=b[j1];
b[j1]=b[j2];
b[j2]=dummy;
}
}
}
dummy=0;
for(j1=1;j1<=4;j1++){
k=k*10+a[j1];
dummy=dummy*10+b[j1];
}
k-=dummy;
return k;
}』