文字の桁を増やす方法。

Question

$words = array("a","i","u","e","o");

これを、
a,i,u,e,oの次を
aa,ai,au,ae,aoの次を
aaa,aai,・・・aoa,aoi　さらに次ぎは、aaaa,aaaaiと続けたいのですが、これがうまくまとまりません。

正確には、日本語ひらがなで、カウンターを作ったら、”あい”、”あか”とかなっておもしろいかなー、と思ったんですが、。
うまくできないでしょうか？

BLUEPIXY · Accepted Answer

というわけで＃６の修正
-------------------------
$list='aiueo';
$lastIndex = length($list) -1;

sub incStr($){
    my $str = shift;
    my $len = length $str;
    my $carry=1;
    my ($pos, $i);
    for($i=0;$i<$len;$i++){
        if($carry){
            $pos=index($list, substr($str, -1-$i, 1));
            if($pos == $lastIndex){
                $carry=1;
                substr($str, -1-$i, 1)= substr($list, 0, 1);
                if($i == $len -1){
                    $str = substr($list, 0, 1) . $str;
                }
            } else {
                $carry=0;
                substr($str, -1-$i, 1) = substr($list, $pos + 1, 1);
            }
        } else {
            last;
        }
    }
    return $str;
}
#インクリメントのテスト
$data="a";
for($i=0;$i<=155;$i++){
    print $data . "
";
    $data=incStr($data);
}

steel_gray · Answer

> ＃３は、０→あ になりませんね

while($num){
～
}
を

do{
～
}while($num);

に、するべきでした。

do-while はperlで使ったことなかったんで使えるか試すのを面倒がってしまいました。（カウンターだから 0 はいいかな、って勝手に決めて）

面白さで数値を文字にするなら数値→文字の変換に別の規則性を持たせてもいいかもしれませんね
0→れ　1→い　2→に　…　みたいに。
ほとんど意味を持たなくても、たまに
4649→よろしく　になったらちょっと幸せかも。

BLUEPIXY · Answer

＃６も間違ってました…ｏｒｚ。（自信ありにマークついてるし・）

BLUEPIXY · Answer

というわけで、題意を満たす(aoの次がaaa)もの
------------------------------------------------
$list='aiueo';
$radix = length $list;

sub n2s($){
    my $num = shift;
    return substr($list, 0, 1) x ($num / $radix) . substr($list, $num % $radix, 1);
}
sub s2n($){
    my $str = shift;
    my $len = length $str;
    return ($len - 1)*$radix + index($list, substr($str,-1,1));
}

BLUEPIXY · Answer

＃３は、０→あ になりませんね

BLUEPIXY · Answer

＃２です。
＃２は、題意を満たしてませんね。
ぼけてました、突っ込んでくれる人がいないので、自分ツッコミ。

steel_gray · Answer

こんな感じでしょうか。

#テスト用関数コール
my $count = 10;
$str = &NumToAiueo($count);
print "
$count = $str
";
# 10 = うあ
exit;

# こっから数値→かな変換
sub NumToAiueo {
my $num = shift;
my @aiueo = qw|あ い う え お|;
my $len = scalar @aiueo;
my $result;
while($num) {
my $kai = int ( $num / $len);
my $yo = $num - $kai * $len;
$result = $aiueo[$yo] . $result;
$num = ($num - $yo) / $len;
}
return $result;
}

BLUEPIXY · Answer

質問者さんの問題は、
ｎ進数→１０進数
１０進数→ｎ進数
への変換の問題と同じです。
a,i,u,e,o が 0,1,2,3,4
に対応すると考えれば５進数の数値の相互変換と同じです。
だから、対応する記号を数値に置き換えて計算すればよいです。
Perlでも良いということなので、Perlでサンプルを作ってみました。
--------------------------------------------------------------------
use encoding 'shiftjis';

$list = 'あいうえお';
$radix = length $list;

sub n2s($){ #数値を該当する文字列に変換する
    my $num = shift;
    my $str = "";

    while($num>=$radix){
        $str = substr($list, $num % $radix, 1) . $str;
        $num /= $radix;
    }
    $str = substr($list, $num, 1) . $str;
    return $str;
}
sub s2n($){ #文字列を該当する数値に変換する
    my $str = shift;
    my $len = length $str;
    my $i,$num;
    
    for($num=0,$i=0;$i<$len;$i++){
        $num=$num * $radix + index($list, substr($str, $i, 1));
    }
    return $num;
}
-----------------------------------------------------------------
$data = 'おお';
print n2s(s2n($data)+1);#文字を数値にして＋１して文字に戻す

とすれば、

いああ

と表示されます。
日本語ひらがなを使う場合はPerl5.6以降で
英数字のみの場合は、特にバージョンに関係なく動くと思います。
英数字の場合はencodingの指定は必要ありません。
日本語の扱いで問題があるようなら
use encoding 'utf8';
を使ってください。（ソースコードをUTF-8で記述するの意)
なお、もともとPerlには文字列をインクリメントできる機能があります。
例えば、
$data="az";
とすると
$data++;
は、
ba
になります

pon_kotu · Answer

今回、質問者さんがやられたいことは以下のような方法で可能だと思います

１．文字列の最後の文字を配列と順に比較
２．同じ文字があったところで、配列のその次の文字と置き換える
３．2のときに同じ文字が配列の文字の最後の文字ならば文字列の一つ前の文字列に対して、１－３を再度繰り返す
４．繰り返していて、文字列の先頭まで達し、かつその先頭の文字が配列の最後の文字ならば、その文字を配列の最初の文字にして、さらに文字列最初（最後どちらでもいい）に配列の最初の文字を加える

例1

文字列=aiu
後ろの文字 u
文字 u　にマッチするので、次の文字eで置き換える
結果文字列= aie

例2

文字列=eio
後ろの文字　o
文字 o　にマッチするので、文字aで置き換える
一つ前の文字　i
文字 i　にマッチするので、文字uで置き換える
結果文字列= eua

例3
文字列=oo
後ろの文字　o
文字 o　にマッチするので、文字aで置き換える
一つ前の文字　o
文字 o　にマッチするので、文字aで置き換える
文字列の先頭に来たので文字aを加える
結果文字列=aaa

このような感じで、繰り返していけばお望みのものができるかと思います

がんばってください

文字の桁を増やす方法。

というわけで＃６の修正

> ＃３は、０→あ になりませんね

＃６も間違ってました…ｏｒｚ。

というわけで、題意を満たす(aoの次がaaa)もの

＃３は、０→あ になりませんね

＃２です。

こんな感じでしょうか。

質問者さんの問題は、

今回、質問者さんがやられたいことは以下のような方法で可能だと思います

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

> ＃３は、０→あになりませんね

＃３は、０→あになりませんね