自分なりに頑張ました
http://q.hatena.ne.jp/1207585413 の問題
http://codepad.org/8BD5WPWo
#!/usr/bin/perl $_ = "ワン ワワンワ ンンワ ンワ ンワ ンワン ワンワ ンワ ワン ワンワ ンワンワンンワン ンワ ンワ ンンンワンワンワンワンワ ワン ワン ワンンンワン ワン ワン ンワ ンワ ンワン ワン ワン ワン ワン ワンワ ンワ ンワン ワン ンワ ンワ ンワ ンワン ワン ワン ワン ワン ワワワン ワン ンワ ンワ ンワ ンワンワ ンワ ワン ワ ンワ ンワンワン ワン ン ワン ワン ワン ワンワ ワ ワン ワン ワン ワンワワワン ンワン ワ ンワン ワ ンワ ワゥゥン ンワ ンワ ワンワ ワウゥゥン ワン ンワンワ ンワ ンワ ";$a=(s/ワワン//g);$b=(s/ンワ//g);$b/=$a*$a;s/ //g; split(/\n/,$_); print ((/$a/||$_%$a==0||$_%$b==0)?"$_[$_%$b], ":"$_, ") for(1..100);
> perl test.pl
1, 2, ンン, 4, ワンワン, ンワ, 7, 8, ワンワンワンンンワンワン, ワンワン, 11, ワンワンン,
ンン, 14, ワンワン, 16, 17, ンン, 19, ワンワン, ンワ, 22, ンン, ワンワンワンンンワンワン,
ワンワン, 26, ワンワンン, 28, 29, ワンワン, ンワ, ワンワンン, ンン, ワンワンワンンンワンワ
ン, ワンワン, ンワ, ワンワンン, ンン, ワンワンワンンンワンワン, ワンワン, 41, ワンワンン,
ンン, 44, ワンワン, 46, 47, ンン, 49, ワンワン, ンワ, 52, ンン, ワンワンワンンンワンワン,
ワンワン, 56, ワンワンン, 58, 59, ワンワン, 61, 62, ンン, 64, ワンワン, ンワ, 67, 68, ワン
ワンワンンンワンワン, ワンワン, 71, ワンワンン, ンン, 74, ワンワン, 76, 77, ンン, 79, ワン
ワン, ンワ, 82, ンン, ワンワンワンンンワンワン, ワンワン, 86, ワンワンン, 88, 89, ワンワン
, 91, 92, ンン, 94, ワンワン, ンワ, 97, 98, ワンワンワンンンワンワン, ワンワン, >
