重複のない乱数リストをPerlワンライナーで生成する
2012-01-30-1
[Programming]
重複のない乱数リストを Perl で簡単に生成する方法。
標準モジュールの List::Util の shuffle 関数を使用すれば良い。
実行例:
- 重複のない乱数リストをお手軽に生成する方法 (EchizenBlog-Zwei)
http://d.hatena.ne.jp/echizen_tm/20120128/1327767479
shufコマンドについて。
- [を] Perl で配列をシャッフル[2006-11-28-2]
List::Util について。
- perlrun - Perl インタプリタの起動方法 【perldoc.jp】
http://perldoc.jp/docs/perl/5.6.1/perlrun.pod
"-M" オプションについて。
標準モジュールの List::Util の shuffle 関数を使用すれば良い。
perl -MList::Util=shuffle -le 'print join"\n",shuffle(1..1000)'
実行例:
% perl -MList::Util=shuffle -le 'print join"\n",shuffle(1..1000)'|head 740 993 744 442 182 247 232 951 256 394
参考
- 重複のない乱数リストをお手軽に生成する方法 (EchizenBlog-Zwei)
http://d.hatena.ne.jp/echizen_tm/20120128/1327767479
shufコマンドについて。
- [を] Perl で配列をシャッフル[2006-11-28-2]
List::Util について。
- perlrun - Perl インタプリタの起動方法 【perldoc.jp】
http://perldoc.jp/docs/perl/5.6.1/perlrun.pod
"-M" オプションについて。
小さい組み込みの文法的シュガーとして、 '-Mmodule qw(foo bar)' の代わりに -mmodule=foo,bar または -Mmodule=foo,bar と書くことができます。 これで、インポートするシンボルにクォートを使わなくてもよいようになります。