Edited at

ズンドコキヨシ with Perl6

More than 1 year has passed since last update.

こんばんは :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編 がすごく素敵です。