ズンドコキヨシ with Perl6 gather/take編

  • 4
    いいね
  • 0
    コメント
この記事は最終更新日から1年以上が経過しています。

http://qiita.com/shunsugai@github/items/971a15461de29563bf90

gather {
  my @a = (1..5).map({''});
  until @a.join("") eq "ズンズンズンズンドコ" {
    @a.shift;
    @a.append: take ("ズン", "ドコ").pick;
  }
  take "キ・ヨ・シ!";
}.say

Perl6 便利