作品 ID: 3530

百人一首からランダムに取り出したら最高の秀歌誕生する説

公開

百人一首からランダムに取り出して短歌を作ります。名前もランダムです。

ソース

プログラム

URL=「https://api.aoikujira.com/hyakunin/get2.php?fmt=json」
JSON=URLへAJAX送信してJSONデコード
歌配列=空配列
元名前=空
D=空配列
index=0
3回繰り返す
    A=100の乱数
    歌=JSON[A]["kami"]
    句=歌を「 」で区切る。
    歌配列に句@indexを配列追加。
    index=index+1
    B=JSON[A]["sakusya"]
    C=(Bを空で区切って、それの配列要素数)の乱数
    Dに(Bを空で区切って、それ@C)を配列追加
ここまで
2回繰り返す
    A=100の乱数
    index=0
    歌=JSON[A]["simo"]
    句=歌を「 」で区切る。
    歌配列に句@indexを配列追加。
    index=index+1
    B=JSON[A]["sakusya"]
    C=(Bを空で区切って、それの配列要素数)の乱数
     Dに(Bを空で区切って、それ@C)を配列追加
ここまで
歌配列を「 」で配列結合して表示。
Dを配列只結合して表示。
10秒毎には
    index=0
    表示ログクリア。
    歌配列=空配列
    元名前=空
    D=空配列
    3回繰り返す
        A=100の乱数
        歌=JSON[A]["kami"]
        句=歌を「 」で区切る。
        歌配列に句@indexを配列追加。
        index=index+1
        B=JSON[A]["sakusya"]
        C=(Bを空で区切って、それの配列要素数)の乱数
        Dに(Bを空で区切って、それ@C)を配列追加
    ここまで
    2回繰り返す
        A=100の乱数
        index=0
        歌=JSON[A]["simo"]
        句=歌を「 」で区切る。
        歌配列に句@indexを配列追加。
        index=index+1
        B=JSON[A]["sakusya"]
        C=(Bを空で区切って、それの配列要素数)の乱数
        Dに(Bを空で区切って、それ@C)を配列追加
    ここまで
    歌配列を「 」で配列結合して表示。
    Dを配列只結合して表示。
ここまで

作品について

作品情報

作品を編集

粉ぁぁ雪ぃぃ作

ライセンス: 未指定（未指定/貯蔵庫のみ）
形式: wnako
タグ: 短歌, API, 百人一首
利用バージョン: 3.8.9
アクセス数(累計): 21
アクセス数(今月): 21
バグ報告: 0件
更新日時: 2026/10/19 12:34 編集: 2026/10/19 12:37

作品公開情報

交流

コメントを取得中...