↑発行停止になった、ソフトで作成したもの。
コレも、Oriosさんの、著作権違反では？
# $t ... 何桁ごとに繰り返すかRe:[246]
# $n ... 判定される数値
# $t 桁ごとの繰り返し型キリ番のとき 0 ，そうでないとき 1 を返す。
sub kurikaeshigata_kiriban{
my $i;
my $n=@_[0];
my $dg=length($n);
my $pm;
my $dgt;
if($dg>=$t*2){ # $t×2 桁以下の数ならキリ番とみなせないので外す
# 上から $t 桁を取得
$pm=0;
for($i=1;$i<=$t-1;$i++){
$dgt[$i]=&md($num,$i);
}
$dgt[0]=&md($num,$i);
# 上から $t 桁以外について調べ，繰り返し型かどうか判定
for($i=$t+1;$i<=$dg;$i++){
if($dgt[$i % 2]!=&md($num,$i)){
$pm=-1;
last;
}
}
}else{
$pm=-1;
}
return($pm);
}
sub md{
($a,$b)=@_;
return(substr($a,$b,1));
}
#N88BASICとして出来ました（15151 や 868686 のようなものも判定できます）。
Dim U As Long, S As String
Dim I As Long, A[1] As String, H As Integer
Print "４桁以上の正の数を入力して下さい。";
Do
Input U
If U<=0 Then
Print "正の数を入力して下さい。";
Else
S=Str$(U)
If Len(S)<4 Then
Print "４桁以上の数を入力して下さい。";
Else
Exit Do
End If
End If
Loop
A[1]=Mid$(S,1,1)
A[0]=Mid$(S,2,1)
For I=3 To Len(S)
If A[I Mod 2]<>Mid$(S,I,1) Then
Exit For
End If
Next
If I=Len(S)+1 Then
Print "繰り返し型キリ番です。"
Else
Print "繰り返し型キリ番ではありません。"
End If
