たまたま3年前に流行った<a href="https://qiita.com/kedama17/items/82993ad94bacb8f34336" target="_blank" rel="nofollow noopener noreferrer">ズンドコキヨシの記事 in clisp</a>を見たのでBashで短く書いた(なんで)
<div class="code-block-container">
<div class="code-block-filename-container">ズンドコキ・ヨ・シ！(120B)</div>
<pre class="language-bash"><code class="language-bash">until [[ ${a[*]} =~(ズン\ ){4}ドコ ]];do a[++j]+=`shuf -en1 ズン ドコ`;echo ${a[j]};done;echo キ・ヨ・シ！
</code></pre>
</div><s>多分これが一番短いと思います</s> 
↓ 
2020-04-17: 順当により短いコードが存在した…(By @akinomyogaさん)
<div class="code-block-container">
<div class="code-block-filename-container">ズンドコキ・ヨ・シ！(87B)</div>
<pre class="language-bash"><code class="language-bash">a=ドコ;for((;b&lt;4;)){ echo ${a[RANDOM%2?b=c,c=0:++c]-ズン};};echo キ・ヨ・シ！
</code></pre>
</div>

Bashズンドコ(until, 正規表現)

myzenn

Discussion