お題:ランダム文字列 by Perl
http://d.hatena.ne.jp/fumokmm/20110326/1301144291
@a=(0..9,a..z,A..Z,_);print$a[rand@a]for a..p #45byte
なんか余裕でもうちょっと潰せそうな気がする。(Perlのエロい人にかかれば)
上記の方法のほか、完全にランダムに文字列作って正規表現で欲しいもの以外rejectして文字数16に達したら終わりとか富豪的(?)なのもありかな。
(2011/05/07):printはsayにすればいいね。 -> Perl6だとパースルールが違うみたいでダメだった。
(2011/05/08):まあ、こうすれば1byteは縮む。
print$a[rand(@a=(0..9,a..z,A..Z,_))]for a..p #44byte