ソース

kiyoshi.pl6

use v6;

my Str constant @words = < ズン ドコ >;
my Str constant @beat = < ズン ズン ズン ズン ドコ >;
my Str @cache;

loop {
  LAST {
    say 'キ・ヨ・シ!';
  }

  print my $word = @words.pick;
  @cache.push: $word;
  @cache.shift while @cache > @beat;

  last if @cache eq @beat;
}

出力例

$ perl6 kiyoshi.pl6
ズンドコドコズンズンドコズンズンドコズンドコドコズンズンズンズンドコキ・ヨ・シ!

おわりです　（キ・ヨ・シ!）

あわせて読みたい

Javaの講義、試験が「自作関数を作り記述しなさい」って問題だったから
「ズン」「ドコ」のいずれかをランダムで出力し続けて「ズン」「ズン」「ズン」「ズン」「ドコ」の配列が出たら「キ・ヨ・シ！」って出力した後終了って関数作ったら満点で単位貰ってた
— てくも (@kumiromilk) 2016, 3月 9

言語	リンク
Python, Ruby, Lua	ズンドコキヨシ with python / ruby / Lua
Brainfuck	ズンドコキヨシ with Brainf**k
C#	例のキヨシチェックを Sprache で書いてみる
C#	例のキヨシチェックを Enumerator を使ってスマートに書いてみましょう
Clojure	ズンドコキヨシ with Clojure
Elixir	ズンドコキヨシ with Elixir
Elixir	ズンドコキヨシ with Elixir(二番煎じ)
Go	ズンドコキヨシ with Go
Go	ズンドコキヨシ with Go (n番煎じ)
Haskell	ズンドコキヨシ with Haskell
Java	ズンドコチェック
Java	例のキヨシチェックを java で
Java	Java8 Stream でズンドコ
JavaScript	ズンドコキヨシ with JavaScript (Node.js)
JavaScript	ズンドコキヨシ with JavaScript
Kotlin	Kotlinで流行りのズンドコキヨシを日本語順通りに作りたかった
Perl	ズンドコキヨシ with Perl
Perl6	ズンドコキヨシ with Perl6 gather/take編
PHP	Functoolsで過剰にスマートなPHPを書こう (無名再帰篇)
PHP	ズンドコキヨシ with PHP
PHP	ズンドコキヨシ with PHP
R	Rでズンドコキヨシ関数を
Ruby	ズンドコキヨシ with Ruby
Ruby	例のキヨシチェックを Ruby のワンライナーで書いてみる
Ruby	ワンライナーズンドコキヨシ with Ruby
Rust	ズンドコキヨシ with Rust
Scala	ズンドコキヨシ with Scala
SQL	ズンドコキヨシ with SQL
Wren	ズンドコキヨシ with Wren
ズンドコスクリプト	ズンドコキヨシ by ズンドコスクリプト

ズンドコスクリプトの存在感がやばい。
そして、@mattn さんのズンドコキヨシ with Perl6 gather/take編がすごく素敵です。