Perlで書く 

Perlで書く 2009.09.13 Vol.242

=====================================================================
Perlで書く 2009.09.13 Vol.242
[WAZA]順列の取得
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●順列の取得

　Math::Combinatoricsモジュールを使うと順列(nPk)を取得できます。

---------------------------------------------------------------------
use strict;
use warnings;
use Math::Combinatorics;

my @items = qw(a b c);

# 3から3つを選ぶ順列
my @permute = permute(@items);
foreach my $p (@permute) {
    print join(" ", @$p), "\n";
}

print "\n";

# 3から2つを選ぶ順列
# nPkを直接取得できないのでnCkの各々に対してkPkを取得している
my @permute_2 = map {permute(@$_)} combine(2, @items);
foreach my $p (sort { (join "\0", @$a) cmp (join "\0", @$b) } @permute_2) {
    print join(" ", @$p), "\n";
}
---------------------------------------------------------------------

●関連項目

  なし

=====================================================================
■雑記

　Google Code Jam(*1)が今年も開催されています。私は初挑戦をして、
Qualification Roundは突破できたのですけどRound 1が通過できませんでした。
　これまでに出題された問題は自由に解答できますので、プログラミングに
自信のある方は正解できるか試してみてはいかがでしょうか。

*1 http://code.google.com/codejam/contest

=====================================================================
Perlで書く(マガジンID：0000109251) 配信数：835
発行者：MAS
本メールマガジンに関するご意見・お問い合わせは
t-masuda@mvd.biglobe.ne.jp までお寄せ下さい。

解除 http://www2u.biglobe.ne.jp/~MAS/perl/magazine.html
検索 http://www2u.biglobe.ne.jp/~MAS/perl/search/index.html
バックナンバー http://archive.mag2.com/0000109251/index.html
RSS  http://archive.mag2.com/0000109251/rss10.xml

本メールマガジンは「まぐまぐ」 http://www.mag2.com/ を利用して発行
しています。
=====================================================================

• 前の記事
• 最新の記事
• 次の記事

規約に同意して

登録した方には、まぐまぐの公式メルマガ（無料）をお届けします。