• ベストアンサー

あああ..ああい..ああう という連番を作成するこ

三文字で連番を作成することはできますか? あああ..ああい..ああう.. あいあ..あいん いああ  いんん..  .. ..と、 んんん までの連番を作成することはできますか? 暇な時に子供の名前を考える際あ~んまでの全通りを機械的に吟味しているのですが 音声ソフトウェアにとりこんで自動的に読み上げてもらい語感を確かめたい と思っているのですが このひらがな三文字の連番作成をすることはできますか?  よろしくお願いいたします

質問者が選んだベストアンサー

  • ベストアンサー
  • osamuy
  • ベストアンサー率42% (1231/2878)
回答No.1

http://www.unicode.org/charts/PDF/U3040.pdf UNICODEの表からひらがな(83文字)を拾ってきて、83*83*83=57万1787種を生成するだけなら、こんなのとか。rubyで書いてます。 hiragana = %w[ ぁ あ ぃ い ぅ う ぇ え ぉ お か が き ぎ く ぐ け げ こ ご さ ざ し じ す ず せ ぜ そ ぞ た だ ち ぢ っ つ づ て で と ど な に ぬ ね の は ば ぱ ひ び ぴ ふ ぶ ぷ へ べ ぺ ほ ぼ ぽ ま み む め も ゃ や ゅ ゆ ょ よ ら り る れ ろ ゎ わ ゐ ゑ を ん]; l = hiragana.length; n = l ** 3; for h in (0... n) a0 = h % l; x = ( h - a0 ) / l; a1 = x % l; a2 = ( x - a1 ) / l; if h < 5 || h % 100000 == 0 || n - h < 5 then printf "%06d: %s%s%s\n", h, hiragana[ a0 ], hiragana[ a1 ], hiragana[ a2 ]; end end 結果はこんな感じ(最初と終わりの数行と10万ごとのパターンを出力): 000000: ぁぁぁ 000001: あぁぁ 000002: ぃぁぁ 000003: いぁぁ 000004: ぅぁぁ 100000: ゅにく 200000: ぶぃぞ 300000: でのぬ 400000: じうほ 500000: ぉぱら 571783: ゐんん 571784: ゑんん 571785: をんん 571786: んんん

kaitouThankyou
質問者

お礼

大変回答ありがとうございます。おっしゃるとおりにruby導入から記述してみましたらそのような結果が得られました 

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • notnot
  • ベストアンサー率47% (4856/10271)
回答No.2

Rubyなら、 ("あああ".."んんん").each {|x| puts x} なお、Unicodeだと、"ん" の後に「う + 濁点」、「ちいさい か」、「ちいさい け」があるようです。

kaitouThankyou
質問者

お礼

回答ありがとうございます。 大変参考になりました

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • フォルダ数を指定して、名前も連番で作成したい

    フォルダ数を指定して、そのフォルダ名を連番、もしくはABCD… など自動的に作成したいのですが、 そのようなツールをご存知でしたら教えてください。 OSはXP PROです。 例えば、指定した場所にフォルダを100個自動で作成して その作成されたフォルダの名前を1~100にしたいので、 自動でできるソフトを探しています。 よろしくお願いします。

  • ACCESSのテーブルで、昇順並び替え後、連番フィールドを作成したい

    表題の通りなのですが、 今現在ACCESS2000を使ってデータベースを作成しています。 その際、 ---------------------- 連番  項目 00001  りんご 00002  ばなな 00003  みかん 00004  もも ---------------------- というようなテーブルで[項目]を昇順で並び替え後、 連番が自動的に振られるようなクエリ(無理そうならその他の方法でも)を作成したいと思っています。 今現在はクエリで以下のように昇順で並び替えられたものを、 ---------------------- 連番  項目 00002  ばなな 00003  みかん 00004  もも 00001  りんご ---------------------- 一旦エクセルにエクスポートして、オートフィルで[連番]を書き換え後、再度ACCESSにインポートし以下のような完成形にもっていっています。 ---------------------- 連番  項目 00001  ばなな 00002  みかん 00003  もも 00004  りんご ---------------------- しかし、頻繁に[項目]書き換え・追加のあるデータベースなので、結構な時間を費やしてしまい、とても効率が良いとはいえない状態です。 どうにかACCESS内で完結できる方法はないものでしょうか? ご享受の程よろしくお願いいたします。

  • エクセルで印刷するとき、連番にしたいm(__)m

    こんにちは! エクセルでアンケート用紙を作成しているのですが、全部で100枚ほど 印刷する予定です。 その際、一枚ごとに自動的に連番を取りたいのですが、どのようにすればいいでしょうか? イメージとしては、一枚目が001、二枚目が002、三枚目が003…百枚目が100、という用にしたいのです。 こんなことってできるのでしょうか? アドバイスよろしくお願いいたします!

  • wordで自動連番をXとYに別々に振るには?

    ・Wordで名前1、名前2,...というように、「名前」というタグに連番を自動で振るには、「名前」と入力してその直後にフィールドを挿入しフィールドの種類として番号を選択することでできるようです。そうすると例えば名前1,名前2と入力した間にまた別の名前を入れたいと思った場合に名前1をコピーして貼り付ければ連番が自動で振りなおされて名前1、名前2、名前3となります。これを名前のシリーズと呼ぶことにします。 ・そしてそこに住所のシリーズを追加し、名前のシリーズとはまた独立に連番を振りたいと思います。例えば以下の通り。  名前1 名前2 住所1 名前3 住所2・・・ ・しかし名前に連番を振ったときと同様、住所と入力してその直後にフィールドを挿入してやっても、次のようになり連番が名前のシリーズと住所のシリーズで共有してしまいます。  名前1 名前2 住所3 名前4 住所5・・・ ・どうしたら名前のシリーズと住所のシリーズで別々に自動連番を振ることができますか?

  • A-ONEラベル屋さん連番文字列の作成

    よろしくお願いします。 A-ONEラベル屋さん連番文字列の作成がうまくできません。 掲載されている操作手順の通りに実施しました。 OKボタンをクリックして、セル?にNo.は振られているのですが、用紙に反映されず、 印刷しても印字されません。 OKした後、何か操作が必要でしょうか? ご存知の方、教えてください。 ●操作手順 はじめに連番文字を挿入開始するセルを選択します。 このとき作成する複数行セルを選択すれば、作成する数の初期値に使えます。 複数列選択時には使えません。 [リンク機能]-[連番文字の作成]メニューで[連番文字の作成]ダイアログを表示します。 [作成枚数]には選択時の行数が入っています。作成する枚数を入力してください。 [最初の番号]や[先頭文字列]/[末尾文字列]、[桁数]・[増分]を指定します。 準備ができたら[OK]ボタンをクリックします。 連番文字が作成されるセル上にある文字は置き換えられて元には戻せません。 確認ダイアログが表示されます。 確認の上[OK]ボタンをクリックします。

  • ACCESSで日付ごとに自動連番(日付+連番)する方法

    ACCESSで日付ごとに自動連番(日付+連番)する方法 ACCESSとvba、共に初心者です。 ACCESS2003を使用しています。日付ごとに自動連番する方法が知りたくいろいろ調べていたところ過去ログ(http://okwave.jp/qa/q726921.html)のベストアンサーさんの回答にたどりつきました。 とりあえず勉強と思い紹介されている通りにテーブル作成からフォームのレコード移動時へのコード貼り付けまで一通り行ってみましたが、自動連番とならず同じ番号のままとなってしまいます。(日付はパソコンの日付更新時にちゃんと反映されています。) 自動連番されないのは何が原因なのでしょうか。どなたかご教授の程よろしくお願いします。 例)DATEが5月5日の場合のIDへの記載値  0505001  0505001←ここが001のまま0505002にしたい。  0506001←日付が変われば0506(5月6日)に変わる。 以上、よろしくお願いいたします。

  • Wordの連番機能により自動的に振られた見出し番号を通常の文字列に変換したい

    MicrosoftWord2003を使用しています。 Wordの連番機能により自動的に振られた見出し番号やその見出しへの相互参照を、書式を保持したまま一括して通常の文字列に変換したいです。 分野ごとに分担して文書を作成しているのですが、これを統合する際に自動連番機能を使用している担当者と使用していない担当者がおり、統合時に連番の不整合が生じるため、一律に自動連番機能は使用しないことになり、対応に苦慮しています。 よろしくお願いします。

  • アウトライン番号を新たに作成する方法は・・?

    OfficeXPを使用しています。 「見出し1~9」のアウトライン番号を設定していて、いくつかの番号の種類を設定しているのですが、『アウトライン番号の書式設定』の『連番の書式』-『番号の種類』ボックスには、「a」(全角小文字英数字)、「」(全角小文字ローマ数字、投稿上、表示できないようですが・・)、「あ」(全角ひらがな)の連番の種類がありませんでした。 行頭文字を新規に作成できるようですが、それでは連番にはならないようですし、外部プラグイン(?)的なものでも構わないのですが、これらの連番を指定する方法はないでしょうか? ご回答よろしくお願い致します。

  • 【WORD】図表番号 自動設定の連番が途中で

    みなさまこんばんわ。 標題の通り、文書作成の補助として 図表番号の採番を自動設定にしておりましたが 日を置いて再度編集した際に、以降挿入した表の連番が"1"に戻ってしまいます。 フィールドコードは事象発生前後で変わりなく以下の通りです。 「SEQ 表 \* ARABIC \s 3」 どこに問題があるのかがわかりません。 お知恵を拝借願えませんでしょうか。 宜しく御願いします。

  • ナレーションの自動作成

    ナレーションの自動作成 ナレーションを自動で作成するソフトを探しています。 自分で作ったDVDにナレーションを付与したいのです。 イメージとしては、テキストで文字入力したものを自動でナレーションの音声ファイルに変換してくれるようなものです。その音声ファイルを自分で作ったDVDに重畳したいと思っています。 探したところ、「声の職人」というソフト(有償)がありましたが、EDIUSという動画編集ソフトをインストールしていないといけないようでした。 出来ればフリーソフトがあれば良いですが、フリー、シェアどちらでも良いのでご存じの方がいれば紹介してもらえないでしょうか? よろしくお願いします。