ズンドコきよし

既に旬は逃し尽くしているけれど何か見かけて面白かったのでワンライナーで
一回じゃつまらなかったので無駄に5回実行します。

zdk.sh

perl -e 'for($i=0;$i<5;$i++){$buf="";while(){$buf .= int(rand(10))%2;if($buf =~ /1$/){print "ズン";}if($buf =~ /0$/){print "ドコ";}if($buf =~ /11110$/){print "キ・ヨ・シ！\n";last;}}}'

実行結果（一例）

ズンドコドコドコドコズンドコドコズンズンドコドコズンドコズンドコズンズンズンドコドコドコズンズンズンズンドコキ・ヨ・シ！
ズンドコドコズンドコズンドコドコドコドコドコズンドコズンドコドコズンドコドコズンズンズンドコドコドコドコドコドコドコドコズンドコズンズンズンズンドコキ・ヨ・シ！
ドコズンズンズンズンドコキ・ヨ・シ！
ズンドコズンドコズンドコズンズンズンズンドコキ・ヨ・シ！
ドコズンドコズンズンドコズンドコドコドコドコドコドコズンドコドコドコズンズンズンドコズンズンドコズンズンドコドコズンズンズンズンズンドコキ・ヨ・シ！

01の羅列で過去の結果を保持し続けて直近5回でズンドコってたらキ・ヨ・シ！出力するだけ。簡単