Ideone.com

download

copy

$\="キ・ヨ・シ!"while s/(?<!(ズン){4}ドコ)$/qw(ズン ドコ)[2*rand]/e;print

Success #stdin #stdout 0s 6000KB

stdin

copy

Standard input is empty

stdout

copy

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

https://ideone.com/ChbhUV

zun-doko-kiyoshi with Perl ( from https://t...content-available-to-author-only...r.com/kumiromilk/status/707437861881180160 )

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!