1. Qiita
  2. 投稿
  3. Perl6

ズンドコキヨシ with Perl6

  • 11
    いいね
  • 0
    コメント

こんばんは :whale2:

今日は、はやりの(?:ズンドコ|キヨシ)チェックをPerl6で書いてみます。

ソース

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
ズンドコドコズンズンドコズンズンドコズンドコドコズンズンズンズンドコキ・ヨ・シ!

おわりです (キ・ヨ・シ!) :microphone:

あわせて読みたい

言語 リンク
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編 がすごく素敵です。