プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net

[0249 デフォルトの名無しさん 2017/06/01(木) 23:30:50.24 ID:MQJNOblg]

>>247　効率悪いけれど…
Perl

$w='covfefe';
@l=split '',$w;
do {
$_ .= $l[int(rand(7))];
} while (!/$w/);
print index $_, $w . "\n";