俺もズンドコキヨシやってみた

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

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

    zundoko.pl
    use strict;
    use warnings;
    use IO::Handle;
    STDOUT->autoflush(1);
    
    my ($zun, $doko) = ('ズン', 'ドコ');
    my $zzzzdoko = $zun x 4 . $doko;
    
    my @target;
    while(join('', @target) ne $zzzzdoko) {
        sleep(1);
        shift @target if (4 < scalar @target);
    
        push(@target, ($zun, $doko)[int(rand(10)) % 2]);
        print $target[-1], ' ';
    }
    
    print "\nキ・ヨ・シ!\n";
    

    何番煎じだよって話だけど、今日は雨降ってて仕事やる気でなくて気分転換で作った。