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

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";

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