d言語で「進捗どうですか」

「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるプログラム
「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるプログラム（C#で挑戦）
golang の進捗どうですか
「進捗・どう・です・か」をHaskellで書いてみた

進捗ダメだけどそんなことは気にしないでやってみた。

ソースコード

shinchoku.d

import std.stdio;
import std.random;

int inflame(string x, string[] xs, uint[] words_leng){
    uint leng = xs.length;
    uint sorted_count = 0;
    uint word_count = 0;
    uint last_num = leng;
    while(sorted_count != leng-1){
        const auto num = uniform(0,leng);
        write(xs[num]);
        word_count += words_leng[num];
        sorted_count = num > last_num ? sorted_count+1 : 0;
        last_num = num;
    }
    writef("\n%s",x);
    return word_count+3;
}

void main(){
    int w =inflame("進捗どうですか",["進捗","どう","です","か"],[2,2,2,1]);
    writef("???\n%d文字で煽られました!!!!!!!!!!!!!",w);
}

汎用性(?)を求めて文字列(x)とその文字列を分割した配列(xs)とそれぞれの要素が何文字入っているかを表す配列(words_leng)、を引数として取る関数をつくってみました。

xとxsの文字列を一致させないでやってみると、

shinchoku.d

//以下のように変更
void main(){
    int w =inflame("進捗どうですか",["進捗","どう","だい","？"],[2,2,2,1]);
    writef("???\n%d文字で煽られました!!!!!!!!!!!!",w);
}

$ ./shinchoku
？進捗？進捗？だいだいだい進捗進捗？？だい進捗進捗？だい？だい？だい？？だいどう進捗どう？進捗だい？進捗進捗進捗どうどう？？進捗進捗？どう進捗だい？？進捗どうどう進捗だい進捗進捗どう進捗だいどう？進捗だい進捗だい？だい進捗進捗どうだいどうどうどうどうどうだい進捗どう進捗？？？どう進捗だい？どうどう進捗どう？だい進捗どうだい進捗？だいだいどう進捗？？進捗どう？だい？どうどうどう？進捗どうだいだい進捗？？だいどう？？どう進捗？？だいだい？？どうだい進捗どうどうだい？？？どう進捗どう進捗？？どう進捗進捗だい進捗？？進捗進捗？どうどうどうだいどう進捗？だい？？だい？だい進捗だいだいだい？進捗進捗だい進捗だいどうどう？？だい？進捗？進捗進捗？？だいだいだいどう進捗進捗進捗進捗？？どう？だい進捗どう？どうだいだい？だい進捗だいだい？？だい進捗？？どう？？どう進捗どう？？？だいだいだいだい進捗だいどうだいどうだい？？だいどう進捗？？？だいどうどう進捗進捗だい進捗進捗？どうどうだいだいどうだい進捗どうどうだい進捗？だい？どうどうどうどう進捗どう進捗？進捗どうどうどうだいどう？だいどう進捗だい進捗どうどうどう？？どう進捗？？？進捗？？どう？？？進捗だいだいだいだい進捗？進捗だい進捗進捗進捗進捗だい進捗？どうどう？だい進捗？進捗？進捗だいだいどうだいだい？？？どう？？だい？どうだいだい進捗だいだい？だいどう進捗？？進捗？？だいどう進捗どうだいどう進捗どうだい？
進捗どうですか???
633文字で煽られました!!!!!!!!!!!!

実行できます。
一致したか否かの判定部分に関わってこないので当然といえば当然なのかもしれませんが。

実行

$ ./shinchoku
進捗かかか進捗か進捗か進捗進捗どうですどうですかかどう進捗どう進捗どう進捗進捗かですどうかですですかどうどうですかかどうどう進捗進捗ですです進捗ですかかですか進捗ですどう進捗かかかどうかかかですどうです進捗かどうです進捗かですどうかどうどうどうどう進捗進捗ですどうかですかかですどうどうかかどうかか進捗どうどうどうどうですどうか進捗どうかかですかかですかですですどうですどうです進捗ですどうどうどう進捗どうですか
進捗どうですか???
209文字で煽られました!!!!!!!!!!!!!

おまけ

ﾟдﾟ)(*ﾟдﾟﾟдﾟヽ(*)ヽ)ﾟдﾟノヽ(*(*(*ヽ)ヽノヽ(*(*))ヽヽﾟдﾟ)ﾟдﾟﾟдﾟ)(*ﾟдﾟ)ヽノﾟдﾟノノノ(*ﾟдﾟ)ノ(*)ヽ)ノﾟдﾟヽヽヽヽﾟдﾟﾟдﾟ(*ヽヽ(*ﾟдﾟノヽノﾟдﾟ(*ﾟдﾟ(*)ﾟдﾟヽヽﾟдﾟ))))ﾟдﾟﾟдﾟノ(*ノノ))ノﾟдﾟﾟдﾟﾟдﾟﾟдﾟ)(*ヽ)ノノﾟдﾟﾟдﾟﾟдﾟﾟдﾟ(*(*ﾟдﾟヽﾟдﾟヽ(*(*ノﾟдﾟ(*ﾟдﾟﾟдﾟﾟдﾟノヽノヽﾟдﾟﾟдﾟ)ヽ))ヽヽ)(*(*(*)ﾟдﾟ(*ノヽ(*ノノノヽヽ)ヽ(*ノノﾟдﾟノﾟдﾟ)ﾟдﾟﾟдﾟヽ)ノﾟдﾟ(*(*ﾟдﾟ)ﾟдﾟノヽﾟдﾟ))ノ(*ヽ(*(*ﾟдﾟ(*ヽﾟдﾟヽヽヽヽﾟдﾟ)ノ(*(*ヽﾟдﾟ(*))ノ(*(*(*ﾟдﾟノヽノ)(*ヽ)ﾟдﾟ(*ヽノノヽ))(*ﾟдﾟﾟдﾟ))(*))(*ノ)ﾟдﾟ)(*(*)(*)ヽヽﾟдﾟ(*ノﾟдﾟﾟдﾟヽﾟдﾟノヽﾟдﾟﾟдﾟヽヽﾟдﾟﾟдﾟ)ノﾟдﾟヽ(*)ヽ)ノﾟдﾟノ(*))ﾟдﾟ(*ヽﾟдﾟヽ)ヽヽ)ﾟдﾟノ(*ノﾟдﾟヽヽ)ヽ)ﾟдﾟヽ)(*ヽﾟдﾟ(*ノ)ﾟдﾟ(*)(*(*ヽ(*(*ノﾟдﾟノヽヽ(*)ヽ))(*)ヽ)(*)ノﾟдﾟヽヽヽ)ﾟдﾟ(*ﾟдﾟﾟдﾟ(*(*))(*ヽノ(*ﾟдﾟ)(*)ノﾟдﾟヽ))ノ(*ﾟдﾟヽ)ノノ(*ヽヽノﾟдﾟ)ヽ(*)ﾟдﾟﾟдﾟ)ﾟдﾟヽノ)ノノﾟдﾟ)ﾟдﾟ)(*(*ﾟдﾟﾟдﾟﾟдﾟヽ(*)ﾟдﾟ)ノノﾟдﾟヽ)ﾟдﾟヽ)(*ノヽノﾟдﾟ)))))(*ノﾟдﾟ(*ヽノ(*))ヽﾟдﾟノノヽヽ)(*(*))ﾟдﾟﾟдﾟヽノ)(*ノ)(*ﾟдﾟヽﾟдﾟﾟдﾟヽ)(*ノ)ノ)ノﾟдﾟヽﾟдﾟヽ(*ノ(*(*ﾟдﾟ)(*)ノヽノ(*ﾟдﾟノ(*)(*(*ノﾟдﾟノノノﾟдﾟヽヽヽノヽノﾟдﾟ)ﾟдﾟﾟдﾟ(*ﾟдﾟ(*))ﾟдﾟ(*ﾟдﾟノヽ(*(*(*ノノﾟдﾟヽヽノヽノ)ﾟдﾟヽﾟдﾟノ)ヽ)ヽ(*(*ノ(*ヽヽ(*(*ノ(*)ﾟдﾟﾟдﾟノ))(*(*(*ノ)(*ﾟдﾟﾟдﾟﾟдﾟヽ)ﾟдﾟﾟдﾟﾟдﾟ(*)ノﾟдﾟノ)(*ヽﾟдﾟ)(*ﾟдﾟﾟдﾟ)ﾟдﾟノヽ(*ノヽノノヽノ)(*))ヽノ)(*ノヽﾟдﾟ(*ノﾟдﾟヽ(*)(*)(*ノ(*ﾟдﾟ)ﾟдﾟﾟдﾟﾟдﾟノノノノ)ノヽ))ﾟдﾟﾟдﾟノ(*(*ノノヽノノ(*(*ﾟдﾟ)(*ﾟдﾟ)ノ)ヽ(*)(*)(*ノノヽ(*(*ﾟдﾟ)(*ノヽ(*ヽノヽﾟдﾟノ(*ﾟдﾟﾟдﾟ)ﾟдﾟ))ﾟдﾟノ)(*ヽﾟдﾟヽ)ノノ(*ヽ)ノﾟдﾟ(*ﾟдﾟﾟдﾟノノ(*ヽ)ヽヽﾟдﾟ(*(*(*(*ノノﾟдﾟ)ヽヽヽﾟдﾟノﾟдﾟ(*)ノノ)ノﾟдﾟヽ)ノ(*))ﾟдﾟヽﾟдﾟﾟдﾟ(*))ノ(*ﾟдﾟ(*ﾟдﾟノ)ﾟдﾟノ)ノヽヽ)ﾟдﾟヽヽヽﾟдﾟ(*(*ノﾟдﾟ(*ヽ)ﾟдﾟ(*(*)))ヽノノﾟдﾟ)ノヽ)ﾟдﾟヽノノノﾟдﾟﾟдﾟ)(*ヽﾟдﾟノﾟдﾟ)(*ヽ)ヽノノヽ(*)(*(*ノ(*ﾟдﾟ(*ﾟдﾟノノノ(*ヽ)(*(*ヽ))ヽ)ヽ(*ノ(*ﾟдﾟ)(*)ノ(*ﾟдﾟ(*))ヽ(*ノﾟдﾟ)ノ)ﾟдﾟヽヽノノﾟдﾟﾟдﾟ(*ﾟдﾟ(*ノ)ノ))ノﾟдﾟ(*)ヽ)ノヽ(*)ﾟдﾟノ(*ノヽ(*)ﾟдﾟノ(*(*ﾟдﾟヽノ)ﾟдﾟﾟдﾟ(*(*(*ヽ(*)ﾟдﾟ(*ヽノ(*(*ノ)ノ))ﾟдﾟノヽﾟдﾟ(*(*ヽヽノヽ))ﾟдﾟノ)ヽヽﾟдﾟノ)(*ノヽノ(*(*)ヽ)ヽ(*(*ノﾟдﾟﾟдﾟ(*ヽﾟдﾟノノ(*ﾟдﾟヽノノヽヽヽ(*ヽ))(*ノﾟдﾟヽﾟдﾟヽ(*(*(*(*ノ)ヽ(*ノ(*(*(*(*ﾟдﾟノノ)ノノ)(*(*(*ヽ)ﾟдﾟ)ノﾟдﾟノノノ(*ノﾟдﾟﾟдﾟﾟдﾟﾟдﾟノノ))ノヽ)ﾟдﾟﾟдﾟ)ヽヽﾟдﾟ(*ノヽノﾟдﾟ(*(*ﾟдﾟヽ(*ノヽ)ヽ))ﾟдﾟ))ﾟдﾟヽ)ﾟдﾟヽ)ﾟдﾟ(*ノ(*(*))ヽヽヽ)ヽﾟдﾟﾟдﾟﾟдﾟノ(*ﾟдﾟﾟдﾟﾟдﾟﾟдﾟ)ﾟдﾟ(*ﾟдﾟﾟдﾟヽ)ヽ(*ﾟдﾟﾟдﾟ))ヽﾟдﾟヽヽノﾟдﾟﾟдﾟ(*ノ)ノノ(*ﾟдﾟﾟдﾟヽ(*ﾟдﾟﾟдﾟ(*ﾟдﾟヽヽ))ヽﾟдﾟ)ヽノ)ﾟдﾟ(*ﾟдﾟ))ノヽ(*ﾟдﾟ)(*ヽﾟдﾟ)ﾟдﾟ(*ﾟдﾟノ)(*(*ノ(*(*)ノ)ヽ)ヽ(*))(*)(*(*(*ﾟдﾟ(*)ﾟдﾟ(*ﾟдﾟノノ(*)ヽヽ)ノノ)ヽ(*(*ﾟдﾟﾟдﾟヽヽ)ﾟдﾟノ(*ヽノ(*ヽ))))(*ノﾟдﾟ(*)ﾟдﾟノ)ヽ))(*ノﾟдﾟ(*ノ)ﾟдﾟ(*ヽ)ﾟдﾟノ(*)(*ﾟдﾟノﾟдﾟ)ノﾟдﾟﾟдﾟﾟдﾟﾟдﾟ)ヽﾟдﾟノ)))ﾟдﾟ)ﾟдﾟ(*ﾟдﾟヽ(*ヽ(*ﾟдﾟヽヽノﾟдﾟ(*(*ヽ)ヽﾟдﾟノ)ノ(*)ノﾟдﾟヽ)(*ノ(*ノ)ノヽﾟдﾟﾟдﾟ(*ノヽヽ(*(*ヽノ(*)(*(*(*ﾟдﾟﾟдﾟヽノ)ﾟдﾟ(*)(*(*ノ(*ﾟдﾟ(*ヽノ(*ヽヽヽノ)(*(*)ヽ(*ヽ(*)(*ヽ)(*))ﾟдﾟノﾟдﾟ(*)ノ)ﾟдﾟ)ノ(*)(*ﾟдﾟﾟдﾟ(*ﾟдﾟ(*(*ヽ)ヽﾟдﾟﾟдﾟ)(*)ヽノﾟдﾟﾟдﾟﾟдﾟ)ﾟдﾟﾟдﾟヽヽノ)ノ(*ヽノ(*ノ)ﾟдﾟ)ノ)(*(*)ﾟдﾟ))ﾟдﾟヽﾟдﾟノノ(*ﾟдﾟ)ノ(*ヽ(*ヽノﾟдﾟノ(*ﾟдﾟﾟдﾟ)ﾟдﾟノノ(*ヽﾟдﾟノ(*)ヽﾟдﾟ(*(*ﾟдﾟﾟдﾟヽ(*ノノノﾟдﾟﾟдﾟ(*ヽノ(*(*ノ))ノ(*ノノノヽヽノ)(*ヽ)ヽﾟдﾟ)(*ノノノヽヽ(*(*(*)ノ(*ﾟдﾟ(*ヽヽﾟдﾟ)ヽﾟдﾟ(*ﾟдﾟノヽ(*ヽノ)ヽ)ノノ(*ヽ(*(*))ノ(*(*(*(*ﾟдﾟノ))ヽ)ヽ)ﾟдﾟﾟдﾟ(*ﾟдﾟノノﾟдﾟﾟдﾟ(*(*ヽ(*(*ヽﾟдﾟ(*(*(*(*ヽ)(*))ﾟдﾟﾟдﾟヽ)ﾟдﾟヽノﾟдﾟﾟдﾟ(*ﾟдﾟノノ(*)))ノ)ﾟдﾟ(*ノノノﾟдﾟ(*)(*ノノノヽヽﾟдﾟ(*ノ)ﾟдﾟﾟдﾟﾟдﾟノ(*)ヽヽ(*ノ(*)ﾟдﾟ)ノﾟдﾟヽﾟдﾟノヽﾟдﾟヽノ(*ﾟдﾟﾟдﾟ(*ノヽヽﾟдﾟヽノﾟдﾟﾟдﾟﾟдﾟ(*ヽﾟдﾟ)ノノ))ﾟдﾟ)ﾟдﾟﾟдﾟヽノ)(*ﾟдﾟノノﾟдﾟ(*(*(*ノ(*ノヽノﾟдﾟ))ヽ(*))ﾟдﾟﾟдﾟ))ノ)(*)ノ(*ﾟдﾟ)ノヽﾟдﾟヽ(*ノ)ノ(*ﾟдﾟノ)(*ノノノﾟдﾟﾟдﾟノ(*ヽヽヽﾟдﾟヽヽ(*ヽﾟдﾟ(*ﾟдﾟノﾟдﾟヽ))ヽヽノ(*ノ(*ヽ))ヽヽ))(*(*ﾟдﾟヽノ(*)ノ(*)(*ヽヽノ)ノヽ)ﾟдﾟ)ノﾟдﾟﾟдﾟﾟдﾟヽヽ))ﾟдﾟ(*ﾟдﾟ)(*(*ヽﾟдﾟヽヽ)))ﾟдﾟヽﾟдﾟヽノヽノヽヽ)ノﾟдﾟヽノ(*ﾟдﾟヽ))(*ヽ))ヽノ(*ﾟдﾟﾟдﾟﾟдﾟノノノヽノﾟдﾟノノヽﾟдﾟﾟдﾟﾟдﾟ(*(*ﾟдﾟ(*(*)(*ノ)ﾟдﾟﾟдﾟヽヽヽ(*)))ノﾟдﾟ)(*ﾟдﾟ(*ノ)ヽノ))ノノヽノヽ(*ノノ(*ノヽ)(*ヽ)(*ヽﾟдﾟ(*(*(*(*ﾟдﾟ(*ノﾟдﾟ(*ノ(*ヽノ(*ノ)ﾟдﾟノノ(*ヽﾟдﾟﾟдﾟ(*ヽﾟдﾟヽヽヽ)ノ(*ヽﾟдﾟ(*ノﾟдﾟノ(*(*ヽノﾟдﾟ(*ﾟдﾟ)(*(*ノﾟдﾟヽヽﾟдﾟヽ)ﾟдﾟ(*)(*(*(*ノﾟдﾟ)(*ヽノﾟдﾟ))(*(*ノﾟдﾟ(*ヽﾟдﾟ)ヽヽノﾟдﾟ(*ﾟдﾟヽヽノﾟдﾟノノノヽヽﾟдﾟノﾟдﾟﾟдﾟ(*(*(*ヽﾟдﾟ(*ヽﾟдﾟ)))ノノﾟдﾟヽヽ)ヽ(*(*(*ノ(*(*)(*(*ヽ)(*ノ(*ヽヽ(*ノﾟдﾟ(*ﾟдﾟヽ)ﾟдﾟ)ﾟдﾟ(*ﾟдﾟﾟдﾟ(*)ヽ(*(*))(*ﾟдﾟヽノ(*(*ノノ)ﾟдﾟヽ(*))ﾟдﾟ(*ノ(*))ヽヽﾟдﾟ))ノヽノノヽ(*ノﾟдﾟノ)(*ヽ(*ﾟдﾟ(*ﾟдﾟ))ノノ)(*ﾟдﾟ)ﾟдﾟﾟдﾟ)ﾟдﾟﾟдﾟ)ノ(*ﾟдﾟノヽ(*(*ノﾟдﾟ)ﾟдﾟ)ノ))ノヽ)ﾟдﾟヽ)(*ﾟдﾟヽ)ﾟдﾟノヽ)(*ノヽﾟдﾟﾟдﾟノノヽヽﾟдﾟノ)(*ノ(*(*ノ)ヽﾟдﾟﾟдﾟノﾟдﾟﾟдﾟヽヽノノノノヽノ))ヽヽヽヽ(*ノヽノ)ヽﾟдﾟヽﾟдﾟ))ﾟдﾟﾟдﾟヽ)))ヽ)ノ)ノﾟдﾟノノヽ(*ヽﾟдﾟヽノ)))ノヽノヽノﾟдﾟ))ﾟдﾟノ(*ヽヽ(*(*ヽﾟдﾟﾟдﾟ)ノﾟдﾟ(*ヽ(*ヽﾟдﾟヽヽ(*(*ノ))ﾟдﾟノノﾟдﾟ)ノノヽノ(*(*(*ノ(*ノノヽヽノノノ(*)ヽﾟдﾟノヽ(*)ヽﾟдﾟﾟдﾟヽﾟдﾟ(*ノノ(*ヽ)(*ﾟдﾟﾟдﾟ)ﾟдﾟ(*ﾟдﾟ)ノヽ(*ノノ)ヽﾟдﾟノヽ)ノノ(*)ﾟдﾟ)ﾟдﾟノヽノﾟдﾟノ(*(*ノ)ﾟдﾟヽ(*)ノ)(*ヽノ(*)))(*ﾟдﾟﾟдﾟ(*(*)(*ヽﾟдﾟヽ)ノﾟдﾟﾟдﾟ(*)ﾟдﾟヽﾟдﾟ(*ﾟдﾟ)ヽ(*(*ノヽ(*ヽﾟдﾟ)ノ(*(*ヽノヽノ(*ﾟдﾟヽ)(*(*(*(*ノ)(*(*)ヽ(*(*))(*ヽﾟдﾟ(*))ノﾟдﾟヽ(*ヽﾟдﾟ(*ノﾟдﾟ(*ノ(*ノ(*ノ)))ﾟдﾟ)ﾟдﾟヽ)(*ﾟдﾟヽ)ノﾟдﾟ(*ノヽﾟдﾟヽノヽﾟдﾟノノノヽﾟдﾟﾟдﾟ(*ﾟдﾟﾟдﾟﾟдﾟヽ(*)ﾟдﾟノヽ(*ﾟдﾟﾟдﾟノヽ(*(*ノ)ノ(*(*))ヽヽ(*ﾟдﾟ)ノ
ヽ(*ﾟдﾟ)ノ　＜　ｶｲﾊﾞｰ
3799文字でヽ(*ﾟдﾟ)ノ　＜　ｶｲﾊﾞｰ